*** empty log message ***

original commit: e45458def27467bc9535253c70aaee60dbccef54
23 years ago · 47646922d5
parent 96b534aeec
commit 47646922d5
1 changed files with 2 additions and 2 deletions
--- a/collects/parser-tools/lex.ss
+++ b/collects/parser-tools/lex.ss
@ -111,7 +111,7 @@

  ;; make-lex-buf: input-port -> lex-buf
  (define (make-lex-buf ip)
-    (make-lex-buffer ip null null 1 1 1 null))
+    (make-lex-buffer ip null null 0 0 0 null))

  ;; next-char: lex-buf -> c
  ;; gets the next character from the buffer
@ -131,7 +131,7 @@
 	 (cons (lex-buffer-col lb)
 	       (lex-buffer-line-lengths lb)))
 	(set-lex-buffer-line! lb (add1 (lex-buffer-line lb)))
-	(set-lex-buffer-col! lb 1))
+	(set-lex-buffer-col! lb 0))
       (else
 	(set-lex-buffer-col! lb (add1 (lex-buffer-col lb)))))
      (set-lex-buffer-offset! lb (add1 (lex-buffer-offset lb)))