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

...

Browse Source 
original commit: 00ad3a7a9a8d4b7fae01cefcedabf9c1642d0b0f
This commit is contained in:
Robby Findler 2000-08-14 02:52:33 +00:00
parent ad2528e6ad
commit 49889f6d06
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/framework/scheme.ss
View File

@ -268,8 +268,7 @@
(scheme-paren:get-paren-pairs))))] (scheme-paren:get-paren-pairs))))]
[is-left-paren? (is-paren? car)] [is-left-paren? (is-paren? car)]
[is-right-paren? (is-paren? cdr)]) [is-right-paren? (is-paren? cdr)])
(when (and (= here there) (when (= here there)
(not (in-single-line-comment? here)))
;; before, after : (list number number boolean) ;; before, after : (list number number boolean)
;; numbers indicate the range to highlight ;; numbers indicate the range to highlight
@ -277,7 +276,8 @@
(let ([before (let ([before
(cond (cond
[(and (> here 0) [(and (> here 0)
(is-right-paren? (get-character (sub1 here)))) (is-right-paren? (get-character (sub1 here)))
(not (in-single-line-comment? here)))
(cond (cond
[(slash? (- here 2) (- here 1)) #f] [(slash? (- here 2) (- here 1)) #f]
[(scheme-paren:backward-match [(scheme-paren:backward-match
@ -290,7 +290,8 @@
[else #f])] [else #f])]
[after [after
(cond (cond
[(is-left-paren? (get-character here)) [(and (is-left-paren? (get-character here))
(not (in-single-line-comment? here)))
(cond (cond
[(slash? (- here 1) here) #f] [(slash? (- here 1) here) #f]
[(scheme-paren:forward-match [(scheme-paren:forward-match