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

.

Browse Source 
original commit: 6fe240dac9047c34b3d5295fd4bf0192e90102b6
This commit is contained in:
Robby Findler 2000-08-04 17:37:06 +00:00
parent 50deca1394
commit 98bdf65866
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/framework/scheme.ss
View File

@ -113,10 +113,28 @@
(let ([line (position-line position)])
(ormap
(lambda (comment-start)
(let ([f (find-string comment-start 'backward position)])
(let loop ([f (find-string comment-start 'backward position)])
(if f
(= (position-line f) line)
#f)))
(cond
[(= (position-line f) line)
(let ([f-1 (- f 1)])
(cond
[(= f 0)
(prinf "1~n")
#t]
[(and (= (position-line f-1) line)
(not (char=? (get-character f-1) #\\ )))
(prinf "2~n")
#t]
[else
(prinf "3~n")
(loop (find-string comment-start 'backward f-1))]))]
[else
(prinf "4~n")
#f])
(begin
(printf "5~n")
#f))))
(scheme-paren:get-comments))))])
(private
[remove-indents-callback