suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 80b5185a52899ee762536713130b9acde6e276dc
This commit is contained in:
Robby Findler 2000-05-02 19:03:08 +00:00
parent 129ba824c8
commit 99a1193d0e
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/framework/scheme.ss
View File

@ -480,12 +480,11 @@
(insert #\newline (paragraph-start-position para))) (insert #\newline (paragraph-start-position para)))
(cond (cond
[(let ([real-start (cdr (find-offset end))]) [(let ([real-start (cdr (find-offset end))])
(if (and (<= (+ 3 real-start) (last-position)) (and (<= (+ 3 real-start) (last-position))
(string=? ";;;" (string=? ";;"
(get-text real-start (+ 3 real-start)))) (get-text real-start
real-start (+ 2 real-start)))))
#f)) (void)]
=> (lambda (x) (set-position x))]
[(= para 0) (do-indent 0)] [(= para 0) (do-indent 0)]
[(not contains) [(not contains)
(do-indent 0)] (do-indent 0)]