...

original commit: 6d4754e937311486aef7431b54bb6df74368493e
1999-03-28 16:44:54 +00:00 · 1999-03-28 16:44:54 +00:00 · 8e29b77aaf
commit 8e29b77aaf
parent 716c62ae54
1 changed files with 1 additions and 4 deletions
--- a/collects/framework/scheme.ss
+++ b/collects/framework/scheme.ss
@ -396,10 +396,7 @@
 		       (unless (= amt (car curr-offset))
 			 (delete pos-start (cdr curr-offset))
 			 (insert
-			  (string-append
-			   (make-string (quotient amt tab-size) #\tab)
-			   (make-string (remainder amt tab-size)
-					#\space))
+			  (make-string amt #\space)
 			  pos-start))))]
 		  [id-walker
 		   (lambda (string)