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

fix starting position for syntax coloring

Browse Source 
svn: r9685
This commit is contained in:
Matthew Flatt 2008-05-06 12:45:45 +00:00
parent a6297e1d6c
commit 062cf833e4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -118,7 +118,7 @@ added get-regions
#t #t
(new token-tree%) (new token-tree%)
+inf.0 +inf.0
0 start
(new paren-tree% (matches pairs)))) (new paren-tree% (matches pairs))))
(define lexer-states (list (make-new-lexer-state 0 'end))) (define lexer-states (list (make-new-lexer-state 0 'end)))
@ -181,7 +181,7 @@ added get-regions
(loop (cdr regions) (list-ref region 1)))] (loop (cdr regions) (list-ref region 1)))]
[else [else
(error 'reset-regions "expected a list of regions, got ~e" regions)])) (error 'reset-regions "expected a list of regions, got ~e" regions)]))
(set! lexer-states (set! lexer-states
(let loop ([old lexer-states] (let loop ([old lexer-states]
[new _regions]) [new _regions])
@ -195,6 +195,7 @@ added get-regions
[else [else
(cons (make-new-lexer-state (caar new) (cadar new)) (cons (make-new-lexer-state (caar new) (cadar new))
(loop null (cdr new)))])))) (loop null (cdr new)))]))))
(define/public (get-regions) (define/public (get-regions)
(map (lambda (ls) (map (lambda (ls)