From 069e08601a0d76d1d30fbc92baf5e8cb28c38f49 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Wed, 24 Apr 2002 05:05:43 +0000 Subject: [PATCH] *** empty log message *** original commit: 933142c30e2f00ef67df862c01b3f45fa2739e8d --- collects/parser-tools/lex.ss | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss index 2e83fa5..1c9d205 100644 --- a/collects/parser-tools/lex.ss +++ b/collects/parser-tools/lex.ss @@ -185,6 +185,7 @@ ((not (input-port? ip)) (raise-type-error 'make-lex-buf "input-port" 0 ip)) (else + (port-count-lines! ip) (make-lex-buffer ip 0 0 0 0)))) ((ip offsets) (cond @@ -196,6 +197,7 @@ (not (andmap (lambda (x) (>= x 0)) offsets))) (raise-type-error 'make-lex-buf "list of 3 non-negative exact integers" 1 ip offsets)) (else + (port-count-lines! ip) (make-lex-buffer ip 0 (car offsets) (cadr offsets) (caddr offsets))))))) (define (next-char lb)