*** empty log message ***

original commit: 7ca29be7d5a98a3baaee7932228bb286afd3e022
23 years ago · 6f77b77e30
parent 19559b74b4
commit 6f77b77e30
1 changed files with 2 additions and 2 deletions
--- a/collects/parser-tools/examples/read.ss
+++ b/collects/parser-tools/examples/read.ss
@ -191,8 +191,8 @@
           #f
           value
           (list source 
-                 (add1 (position-line start-pos))
-                 (add1 (position-col start-pos))
+                 (position-line start-pos)
+                 (position-col start-pos)
                 (position-offset start-pos)
                 (- (position-offset end-pos)
                    (position-offset start-pos)))