suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-15 18:04:56 -07:00
parent 1f66d545c0
commit 200f5cb80a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/gui/dynamic.rkt
View File

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