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

*** empty log message ***

Browse Source 
original commit: aff85a0d42c176de780142c10b5adbdab72d1e6f
This commit is contained in:
Scott Owens 2003-11-26 20:24:05 +00:00
parent 92f4a92627
commit a3e2648d39
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -183,7 +183,10 @@
(send parens split-tree orig-token-start) (send parens split-tree orig-token-start)
(set! invalid-tokens invalid-tree) (set! invalid-tokens invalid-tree)
(set! tokens valid-tree) (set! tokens valid-tree)
(set! invalid-tokens-start (+ start-pos orig-token-end change-length)) (set! invalid-tokens-start
(if (send invalid-tokens is-empty?)
+inf.0
(+ start-pos orig-token-end change-length)))
(set! current-pos (+ start-pos orig-token-start)) (set! current-pos (+ start-pos orig-token-start))
(set! up-to-date? #f) (set! up-to-date? #f)
(queue-callback colorer-callback #f))) (queue-callback colorer-callback #f)))