I don't think so. I'm not able to reproduce what you're seeing, with either 6.1 or git head.
I'm also a little puzzled why the colorer would be stopped in this situation. Does starting a fresh drracket exhibit these problems, if you follow those steps right after starting up? Robby On Mon, Sep 15, 2014 at 7:37 PM, Stephen Chang <stch...@ccs.neu.edu> wrote: > My Drracket is crashing with the steps and error msg below. Does this > commit fix what I'm seeing? > > Steps to reproduce: > 1) start drracket 6.1 windows 32 bit > 2) select BSL > 3) add "(require rackunit)" and run > 4) switch to "determine language from source" > 5) switch back to BSL > > > skip-whitespace: called on a color:text<%> whose colorer is stopped. > context...: > C:\Program Files > (x86)\Racket\share\pkgs\gui-lib\framework\private\color.rkt:966:4: > skip-whitespace method in ...rk/private/color.rkt:77:2 > C:\Program Files > (x86)\Racket\share\pkgs\gui-lib\framework\private\color.rkt:813:12: > seq-loop > C:\Program Files > (x86)\Racket\share\pkgs\gui-lib\framework\private\color.rkt:802:4: > highlight-nested-region method in ...rk/private/color.rkt:77:2 > C:\Program Files > (x86)\Racket\share\pkgs\gui-lib\framework\private\color.rkt:762:6: > core1469 > C:\Program Files > (x86)\Racket\share\pkgs\gui-lib\framework\private\color.rkt:1192:4: > after-edit-sequence method in ...rk/private/color.rkt:77:2 > C:\Program Files > (x86)\Racket\share\pkgs\gui-lib\mred\private\wxme\text.rkt:748:2: > end-edit-sequence method in text% > set-surrogate method > C:\Program Files > (x86)\Racket\share\pkgs\drracket\drracket\private\module-language.rkt:2642:6: > set-current-mode method in .../module-language.rkt:2627:4 > C:\Program Files > (x86)\Racket\share\pkgs\drracket\drracket\private\module-language.rkt:2635:6: > after-set-next-settings method in .../module-language.rkt:2627:4 > C:\Program Files > (x86)\Racket\share\pkgs\gui-lib\mred\private\mrmenu.rkt:250:14: > command method in basic-selectable-menu-item% > C:\Program Files > (x86)\Racket\share\pkgs\gui-lib\mred\private\mrpopup.rkt:49:38: go > C:\Program Files > (x86)\Racket\share\pkgs\gui-lib\mred\private\wx\common\queue.rkt:451:6 > C:\Program Files > (x86)\Racket\share\pkgs\gui-lib\mred\private\wx\common\queue.rkt:502:32 > C:\Program Files > (x86)\Racket\share\pkgs\gui-lib\mred\private\wx\common\queue.rkt:650:3 > > On Sun, Sep 7, 2014 at 4:35 PM, <ro...@racket-lang.org> wrote: >> robby has updated `master' from df3c56fae2 to bc83e9b778. >> http://git.racket-lang.org/plt/df3c56fae2..bc83e9b778 >> >> =====[ 2 Commits ]====================================================== >> Directory summary: >> 14.5% pkgs/drracket-pkgs/drracket/drracket/private/ >> 79.5% pkgs/gui-pkgs/gui-lib/framework/private/ >> 5.8% pkgs/gui-pkgs/gui-test/framework/tests/ >> >> ~~~~~~~~~~ >> >> f4d66ad Robby Findler <ro...@racket-lang.org> 2014-09-07 15:34 >> : >> | fix magic-open-paren bug >> | >> | also, replace some eq?s with equal?s. >> : >> M pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt | 11 ++++++----- >> M pkgs/gui-pkgs/gui-test/framework/tests/racket.rkt | 1 + >> >> ~~~~~~~~~~ >> >> bc83e9b Robby Findler <ro...@racket-lang.org> 2014-09-05 08:28 >> : >> | Open Require Path: ignore .bak files under windows, but ~ files elsewhere >> | >> | instead of ignoring ~ files everywhere >> : >> M .../drracket/drracket/private/find-completions.rkt | 4 +++- >> >> =====[ Overall Diff ]=================================================== >> >> pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt >> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ >> --- OLD/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt >> +++ NEW/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt >> @@ -24,7 +24,9 @@ >> >> (define (ignore? x) >> (or (member x '("compiled")) >> - (regexp-match #rx"~$" x))) >> + (if (equal? (system-type) 'windows) >> + (regexp-match #rx"[.]bak$" x) >> + (regexp-match #rx"~$" x)))) >> >> (define (find-completions str the-current-directory #:alternate-racket >> [alternate-racket #f]) >> (cond >> >> pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt >> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ >> --- OLD/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt >> +++ NEW/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt >> @@ -1787,7 +1787,7 @@ >> (if (and (send text get-overwrite-mode) (= start-pos end-pos)) >> (send text insert "[" start-pos (add1 start-pos) #f) >> (send text insert "[" start-pos 'same #f)) >> - (when (eq? (send text classify-position pos) 'parenthesis) >> + (when (equal? (send text classify-position pos) 'parenthesis) >> (let* ([before-whitespace-pos (send text skip-whitespace pos >> 'backward #t)] >> [keyword/distance (find-keyword-and-distance >> before-whitespace-pos text)]) >> (cond >> @@ -1852,9 +1852,10 @@ >> 0)]) >> (cond >> [(and second-backwards-match2 >> - (eq? (send text classify-position >> second-backwards-match) >> - ;;; otherwise, this isn't a `let >> loop', it is a regular let! >> - 'symbol) >> + (member (send text classify-position >> second-backwards-match) >> + ;;; otherwise, this isn't a >> `let loop', >> + ;;; it is a regular let >> + '(symbol keyword)) >> (member "let" letrec-like-forms) >> (text-between-equal? "let" >> text >> @@ -1875,7 +1876,7 @@ >> [(and (preferences:get 'framework:automatic-parens) >> (not (in-string/comment? text))) >> (send text insert real-char start-pos start-pos) >> - (when (eq? (send text classify-position start-pos) 'parenthesis) >> + (when (equal? (send text classify-position start-pos) 'parenthesis) >> (send text insert (case real-char >> [(#\() #\)] >> [(#\[) #\]] >> >> pkgs/gui-pkgs/gui-test/framework/tests/racket.rkt >> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ >> --- OLD/pkgs/gui-pkgs/gui-test/framework/tests/racket.rkt >> +++ NEW/pkgs/gui-pkgs/gui-test/framework/tests/racket.rkt >> @@ -81,6 +81,7 @@ >> (test-magic-square-bracket 'let2 "(let (" "(let ([") >> (test-magic-square-bracket 'let3 "(let loop " "(let loop (") >> (test-magic-square-bracket 'let3 "(let loop (" "(let loop ([") >> +(test-magic-square-bracket 'let4 "(let rec (" "(let rec ([") >> (test-magic-square-bracket 'cond1 "(cond " "(cond [") >> (test-magic-square-bracket 'cond2 "(cond [" "(cond [(") >> (test-magic-square-bracket 'with-syntax1 "(syntax-case x " "(syntax-case x >> (") _________________________ Racket Developers list: http://lists.racket-lang.org/dev