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)))
(define/override (front-end/interaction port settings)
(let ([t (parameterize ([read-accept-lang #f])
(super front-end/interaction port settings))]
(let ([t (super front-end/interaction port settings)]
[start? #t]
[done? #f])
(λ ()
@ -567,7 +566,8 @@
#'(reset-tests)]
[done? eof]
[else
(let ([ans (t)])
(let ([ans (parameterize ([read-accept-lang #f])
(t))])
(cond
[(eof-object? ans)
(set! done? #t)