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

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

@ -487,19 +487,20 @@
[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)])
(let ([post-whitespace (skip-whitespace inner-sequence-start 'forward #t)]) (when (< inner-sequence-start end)
(let-values ([(start-inner end-inner error-inner) (let ([post-whitespace (skip-whitespace inner-sequence-start 'forward #t)])
(send parens match-forward (- post-whitespace start-pos))]) (let-values ([(start-inner end-inner error-inner)
(cond (send parens match-forward (- post-whitespace start-pos))])
[(and start-inner end-inner (not error-inner)) (cond
(paren-loop start-inner end-inner (+ depth 1)) [(and start-inner end-inner (not error-inner))
(seq-loop end-inner)] (paren-loop start-inner end-inner (+ depth 1))
[(skip-past-token post-whitespace) (seq-loop end-inner)]
=> [(skip-past-token post-whitespace)
(λ (after-non-paren-thing) =>
(seq-loop after-non-paren-thing))])))) (λ (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
(define/public (forward-match position cutoff) (define/public (forward-match position cutoff)
(do-forward-match position cutoff #t)) (do-forward-match position cutoff #t))