From f1ea63c87dcc1bca01eed6f3929e29d6a4d9e0ac Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 19 Nov 2012 08:13:48 -0700 Subject: [PATCH] racket/gui/dynamic: make `gui-dynamic-require' pull from `racket/gui/base' It was pulling from `scheme/gui/base', instead. The one from `scheme/gui/base' is now different and still pulls from `scheme/gui/base'. This could break some programs that accidentally depended on `scheme/gui/base' exports from `gui-dynamic-require', but it's more likely to fix problems. original commit: 702df4b07add593618713500e7236b5bd75067b3 --- collects/tests/gracket/racket-ns.rkt | 2 ++ collects/tests/gracket/scheme-ns.rkt | 2 ++ 2 files changed, 4 insertions(+) diff --git a/collects/tests/gracket/racket-ns.rkt b/collects/tests/gracket/racket-ns.rkt index 85b065ee..234df242 100644 --- a/collects/tests/gracket/racket-ns.rkt +++ b/collects/tests/gracket/racket-ns.rkt @@ -6,4 +6,6 @@ (let ([ns ((gui-dynamic-require 'make-gui-namespace))] [orig-ns (current-namespace)]) + (unless (namespace-variable-value 'hash #t (lambda () #f) ns) + (error "expected a binding for `hash'")) (namespace-attach-module orig-ns 'racket/base ns)) diff --git a/collects/tests/gracket/scheme-ns.rkt b/collects/tests/gracket/scheme-ns.rkt index 2c445ba9..17ea5953 100644 --- a/collects/tests/gracket/scheme-ns.rkt +++ b/collects/tests/gracket/scheme-ns.rkt @@ -6,4 +6,6 @@ (let ([ns ((gui-dynamic-require 'make-gui-namespace))] [orig-ns (current-namespace)]) + (when (namespace-variable-value 'hash #t (lambda () #f) ns) + (error "did not expect a binding for `hash'")) (namespace-attach-module orig-ns 'scheme/base ns))