.

original commit: 80b5185a52899ee762536713130b9acde6e276dc
2000-05-02 19:03:08 +00:00 · 2000-05-02 19:03:08 +00:00 · 99a1193d0e
commit 99a1193d0e
parent 129ba824c8
1 changed files with 5 additions and 6 deletions
--- a/collects/framework/scheme.ss
+++ b/collects/framework/scheme.ss
@ -480,12 +480,11 @@
 		 (insert #\newline (paragraph-start-position para)))
 	       (cond
 		 [(let ([real-start (cdr (find-offset end))]) 
-		    (if (and (<= (+ 3 real-start) (last-position))
-			     (string=? ";;;"
-				       (get-text real-start (+ 3 real-start))))
-			real-start
-			#f))
-		  => (lambda (x) (set-position x))]
+		    (and (<= (+ 3 real-start) (last-position))
+                         (string=? ";;"
+                                   (get-text real-start
+                                             (+ 2 real-start)))))
+                  (void)]
 		 [(= para 0) (do-indent 0)]
 		 [(not contains)
 		  (do-indent 0)]