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

fixed another bug

Browse Source 
svn: r7878
This commit is contained in:
Robby Findler 2007-11-30 21:46:33 +00:00
parent d194a8b145
commit 2787a2a060
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/color.ss
View File

@ -487,6 +487,7 @@
[depth 0]) [depth 0])
(when (< depth (vector-length (get-parenthesis-colors))) (when (< depth (vector-length (get-parenthesis-colors)))
(let seq-loop ([inner-sequence-start (+ start 1)]) (let seq-loop ([inner-sequence-start (+ start 1)])
(when (< inner-sequence-start end)
(let ([post-whitespace (skip-whitespace inner-sequence-start 'forward #t)]) (let ([post-whitespace (skip-whitespace inner-sequence-start 'forward #t)])
(let-values ([(start-inner end-inner error-inner) (let-values ([(start-inner end-inner error-inner)
(send parens match-forward (- post-whitespace start-pos))]) (send parens match-forward (- post-whitespace start-pos))])
@ -497,7 +498,7 @@
[(skip-past-token post-whitespace) [(skip-past-token post-whitespace)
=> =>
(λ (after-non-paren-thing) (λ (after-non-paren-thing)
(seq-loop after-non-paren-thing))])))) (seq-loop after-non-paren-thing))])))))
(highlight start end here (vector-ref (get-parenthesis-colors) depth))))) (highlight start end here (vector-ref (get-parenthesis-colors) depth)))))
;; See docs ;; See docs