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

check the result of find-ls in the one place it wasn't being checked

Browse Source 
probably closes 13404
This commit is contained in:
Robby Findler 2013-01-01 15:00:16 -06:00
parent 07d5a9e385
commit 0e763f5b01
1 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/private/color.rkt
View File

@ -1000,6 +1000,8 @@ added get-regions
(define/private (find-next-close-paren pos closers [adj? #t])
(define next-pos (skip-whitespace pos 'forward #t))
(define ls (find-ls next-pos))
(cond
[ls
(define ls-start (lexer-state-start-pos ls))
(define tree (lexer-state-tokens ls))
(send tree search! (- next-pos ls-start))
@ -1015,7 +1017,9 @@ added get-regions
(member (get-text start-pos end-pos) closers)) ; token at start-pos matches
(values start-pos end-pos (get-text start-pos end-pos) adj?)]
[else ; skip ahead
(find-next-close-paren end-pos closers #f)]))
(find-next-close-paren end-pos closers #f)])]
[else
(values #f #f #f #f)]))
;; given end-pos, a position right after a closing parens,