From c785235af4dd39ff2ccccf40511711922b82b621 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 11 Oct 2010 13:46:49 -0500 Subject: [PATCH] made the pretty big and r5rs drracket languages use the new read-accept-lang parameter to disable #lang in the REPL --- collects/drracket/private/language-configuration.rkt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/collects/drracket/private/language-configuration.rkt b/collects/drracket/private/language-configuration.rkt index d7e308bbcd..c03085b324 100644 --- 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)