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

move read-accept-lang parameter setting to the right place

Browse Source
This commit is contained in:
Robby Findler 2010-10-09 15:02:49 -05:00
parent d9ea5141e9
commit 2de8b978ba
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/lang/htdp-langs.rkt
View File

@ -556,8 +556,7 @@
(drscheme:rep:current-rep))) (drscheme:rep:current-rep)))
(define/override (front-end/interaction port settings) (define/override (front-end/interaction port settings)
(let ([t (parameterize ([read-accept-lang #f]) (let ([t (super front-end/interaction port settings)]
(super front-end/interaction port settings))]
[start? #t] [start? #t]
[done? #f]) [done? #f])
(λ () (λ ()
@ -567,7 +566,8 @@
#'(reset-tests)] #'(reset-tests)]
[done? eof] [done? eof]
[else [else
(let ([ans (t)]) (let ([ans (parameterize ([read-accept-lang #f])
(t))])
(cond (cond
[(eof-object? ans) [(eof-object? ans)
(set! done? #t) (set! done? #t)