From 49889f6d0686cda178e42859fd84a922c21e310f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 14 Aug 2000 02:52:33 +0000 Subject: [PATCH] ... original commit: 00ad3a7a9a8d4b7fae01cefcedabf9c1642d0b0f --- collects/framework/scheme.ss | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/framework/scheme.ss b/collects/framework/scheme.ss index 527a5ced..4fd835a0 100644 --- a/collects/framework/scheme.ss +++ b/collects/framework/scheme.ss @@ -268,8 +268,7 @@ (scheme-paren:get-paren-pairs))))] [is-left-paren? (is-paren? car)] [is-right-paren? (is-paren? cdr)]) - (when (and (= here there) - (not (in-single-line-comment? here))) + (when (= here there) ;; before, after : (list number number boolean) ;; numbers indicate the range to highlight @@ -277,7 +276,8 @@ (let ([before (cond [(and (> here 0) - (is-right-paren? (get-character (sub1 here)))) + (is-right-paren? (get-character (sub1 here))) + (not (in-single-line-comment? here))) (cond [(slash? (- here 2) (- here 1)) #f] [(scheme-paren:backward-match @@ -290,7 +290,8 @@ [else #f])] [after (cond - [(is-left-paren? (get-character here)) + [(and (is-left-paren? (get-character here)) + (not (in-single-line-comment? here))) (cond [(slash? (- here 1) here) #f] [(scheme-paren:forward-match