From fc6a3fc9bf9766d9935815249296e545abb37940 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 11 May 2002 22:55:23 +0000
Subject: [PATCH] .

original commit: ac35f4a6c9ec210e23beec221c05a82d5137b993
---
 collects/parser-tools/lex.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss
index 6d57ad8..85d4446 100644
--- a/collects/parser-tools/lex.ss
+++ b/collects/parser-tools/lex.ss
@@ -218,6 +218,6 @@
   (define-struct position (offset line col))
   (define (get-position ip)
     (let-values (((line col off) (port-next-location ip)))
-      (make-position (add1 off) (if line (add1 line) #f) (if col (add1 col) #f))))
+      (make-position off line col)))
 
 )