From 47646922d50ccd058dfe74dc571f42bdd8eb22f9 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Mon, 13 Aug 2001 00:33:12 +0000 Subject: [PATCH] *** empty log message *** original commit: e45458def27467bc9535253c70aaee60dbccef54 --- collects/parser-tools/lex.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss index 39a91c6..3f2abc4 100644 --- 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)))