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
This commit is contained in:
Matthew Flatt 2012-11-19 08:13:48 -07:00
parent a4e38f71d5
commit f1ea63c87d
2 changed files with 4 additions and 0 deletions

View File

@ -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))

View File

@ -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))