fix gui-available?' when racket/gui/base' is declared but not instantiated

This commit is contained in:
Matthew Flatt 2011-01-15 18:04:56 -07:00
parent 1f66d545c0
commit 200f5cb80a

View File

@ -17,6 +17,8 @@
;; Fails if `mred/private/dynamic' is not declared
;; (without loading it if not):
(module->language-info 'mred/private/dynamic #f)
;; Fails if `mred/private/dynamic' is not instantiated:
(namespace-attach-module (current-namespace) 'mred/private/dynamic)
;; Double check that it seems to have started ok:
(eq? (dynamic-require 'mred/private/dynamic 'kernel-initialized)
'done))))