*** empty log message ***

original commit: f01fd0e0bb2118d2fee7e580e0ccdf7a6e92d482
24 years ago · 329e43ba0f
parent e09fd37907
commit 329e43ba0f
1 changed files with 15 additions and 11 deletions
--- a/collects/parser-tools/lex.ss
+++ b/collects/parser-tools/lex.ss
@ -154,17 +154,21 @@
 		(cond
 		 ((= 0 num-to-add) (values from to))
 		 (else
-		  (if (eq? #\newline (car from))
-		      (begin
-			(set-lex-buffer-line! 
-			 lb
-			 (sub1 (lex-buffer-line lb)))
-			(set-lex-buffer-offset!
-			 lb
-			 (car (lex-buffer-line-lengths lb)))
-			(set-lex-buffer-line-lengths!
-			 lb
-			 (cdr (lex-buffer-line-lengths lb)))))
+		  (cond
+		   ((eq? #\newline (car from))
+		    (set-lex-buffer-line! 
+		     lb
+		     (sub1 (lex-buffer-line lb)))
+		    (set-lex-buffer-offset!
+		     lb
+		     (car (lex-buffer-line-lengths lb)))
+		    (set-lex-buffer-line-lengths!
+		     lb
+		     (cdr (lex-buffer-line-lengths lb))))
+		   (else
+		    (set-lex-buffer-col! 
+		     lb 
+		     (sub1 (lex-buffer-col lb)))))
 		  (switch-buffers (cdr from) 
 				  (cons (car from) to) 
 				  (sub1 num-to-add)))))))