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

...

Browse Source 
original commit: a618a1fd4f410d801093c7a4d73c10f871c2add5
This commit is contained in:
Robby Findler 1999-02-04 22:26:24 +00:00
parent e315b44675
commit 8e8e3f0357
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/framework/scheme.ss
View File

@ -113,7 +113,7 @@
(lambda (comment-start)
(let ([f (find-string comment-start 'backward position)])
(if f
(= (send position-line f) line)
(= (position-line f) line)
#f)))
(scheme-paren:get-comments))))])
(private
@ -227,10 +227,12 @@
[there (get-end-position)]
[slash?
(lambda (before after)
(let ([text (get-text before after)])
(and (string=? text)
(>= (string-length text) 1)
(char=? #\\ (string-ref text 0)))))]
(and (>= before 0)
(>= after 0)
(let ([text (get-text before after)])
(and (string? text)
(>= (string-length text) 1)
(char=? #\\ (string-ref text 0))))))]
[is-paren?
(lambda (f)
(lambda (char)