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

3
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)))
@ -196,6 +196,7 @@ added get-regions
(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)
(list (lexer-state-start-pos ls) (list (lexer-state-start-pos ls)