From fc326539e224b222f54399297377ac1c3fdf5165 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Sat, 5 Jan 2002 02:51:11 +0000 Subject: [PATCH] *** empty log message *** original commit: eebe6d7120d6e7366dc24491c2d829d780785df2 --- collects/parser-tools/lex.ss | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss index e3056ed..cdd1f09 100644 --- a/collects/parser-tools/lex.ss +++ b/collects/parser-tools/lex.ss @@ -200,20 +200,18 @@ ((eq? #\tab char-in) (let ((skip-amt (- 8 (modulo (lex-buffer-col lb) 8)))) (set-lex-buffer-tab-skips! lb (cons skip-amt (lex-buffer-tab-skips lb))) - (set-lex-buffer-col! lb (+ skip-amt (lex-buffer-col lb))) - (set-lex-buffer-offset! lb (+ skip-amt (lex-buffer-col lb))))) + (set-lex-buffer-col! lb (+ skip-amt (lex-buffer-col lb))))) ((eq? #\newline char-in) (set-lex-buffer-line-lengths! lb (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-offset! lb (add1 (lex-buffer-offset lb)))) + (set-lex-buffer-col! lb 1)) (else - (set-lex-buffer-col! lb (add1 (lex-buffer-col lb))) - (set-lex-buffer-offset! lb (add1 (lex-buffer-offset lb))))) - char-in))) + (set-lex-buffer-col! lb (add1 (lex-buffer-col lb))))) + (set-lex-buffer-offset! lb (add1 (lex-buffer-offset lb))) + char-in))) ;; push-back: lex-buf * int -> c list ;; pushes the last read i characters back to be read again @@ -240,8 +238,6 @@ ((eq? #\tab (car from)) (set-lex-buffer-col! lb (- (lex-buffer-col lb) (car (lex-buffer-tab-skips lb)))) - (set-lex-buffer-offset! lb (- (add1 (lex-buffer-offset lb)) - (car (lex-buffer-tab-skips lb)))) (set-lex-buffer-tab-skips! lb (cdr (lex-buffer-tab-skips lb)))) (else (set-lex-buffer-col! lb (sub1 (lex-buffer-col lb)))))