made the pretty big and r5rs drracket languages use the new read-accept-lang parameter to disable #lang in the REPL

2010-10-11 13:46:49 -05:00 · 2010-10-11 13:46:49 -05:00 · c785235af4
commit c785235af4
parent 798e35bb4c
1 changed files with 5 additions and 0 deletions
--- a/collects/drracket/private/language-configuration.rkt
+++ b/collects/drracket/private/language-configuration.rkt
@ -1536,6 +1536,11 @@
                    (define/override (get-one-line-summary) one-line-summary)
                    (inherit get-module get-transformer-module get-init-code
                             use-namespace-require/copy-from-setting?)
+                    (define/override (front-end/interaction port settings)
+                      (let ([t (super front-end/interaction port settings)])
+                        (λ ()
+                          (parameterize ([read-accept-lang #f])
+                            (t)))))
                    (define/augment (capability-value key)
                      (cond
                        [(eq? key 'drscheme:autocomplete-words)