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

on second thought 5aeca646 is probably wrong and this is probably the right fix

Browse Source 
The keys.ss framework test suite seems to confirm this fix, altho
I'm not sure how exactly.

Also tweak the stress test
This commit is contained in:
Robby Findler 2013-08-17 07:52:00 -05:00
parent 5302353055
commit 9888c7f496
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/gui-pkgs/gui-lib/framework/private/color.rkt
View File

@ -472,16 +472,15 @@ added get-regions
(set-lexer-state-up-to-date?! ls #f) (set-lexer-state-up-to-date?! ls #f)
(update-lexer-state-observers) (update-lexer-state-observers)
(queue-callback (λ () (colorer-callback)) #f))) (queue-callback (λ () (colorer-callback)) #f)))
((>= edit-start-pos (lexer-state-invalid-tokens-start ls)) ((and (>= edit-start-pos (lexer-state-invalid-tokens-start ls))
(> edit-start-pos (lexer-state-current-pos ls)))
(let-values (((tok-start tok-end valid-tree invalid-tree orig-data) (let-values (((tok-start tok-end valid-tree invalid-tree orig-data)
(split-backward ls (lexer-state-invalid-tokens ls) edit-start-pos))) (split-backward ls (lexer-state-invalid-tokens ls) edit-start-pos)))
(set-lexer-state-invalid-tokens! ls invalid-tree) (set-lexer-state-invalid-tokens! ls invalid-tree)
(set-lexer-state-invalid-tokens-start! (set-lexer-state-invalid-tokens-start!
ls ls
(+ (lexer-state-invalid-tokens-start ls) tok-end change-length)) (+ (lexer-state-invalid-tokens-start ls) tok-end change-length))
(set-lexer-state-invalid-tokens-mode! ls (and orig-data (data-lexer-mode orig-data))) (set-lexer-state-invalid-tokens-mode! ls (and orig-data (data-lexer-mode orig-data)))))
(when (<= edit-start-pos (lexer-state-current-pos ls))
(set-lexer-state-current-pos! ls (+ (lexer-state-current-pos ls) change-length)))))
((> edit-start-pos (lexer-state-current-pos ls)) ((> edit-start-pos (lexer-state-current-pos ls))
(set-lexer-state-invalid-tokens-start! (set-lexer-state-invalid-tokens-start!
ls ls

2
pkgs/unstable-pkgs/unstable-test/tests/unstable/2d/lexer-stress-test.rkt
View File

@ -8,7 +8,7 @@
(define f (new frame% [label ""] [width 400] [height 600])) (define f (new frame% [label ""] [width 400] [height 600]))
(define t (new (class racket:text% (define t (new (class racket:text%
(define/override (tokenizing-give-up-early) (define/override (tokenizing-give-up-early)
(when (zero? (random 4)) (when (zero? (random 2))
(do-something)) (do-something))
#t) #t)
(super-new)))) (super-new))))