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

fix racket/gui/dynamic

Browse Source
This commit is contained in:
Matthew Flatt 2010-10-24 09:32:44 -06:00
parent 6a897ba36c
commit fcb0583724
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,8 +9,6 @@
;; 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:
(module->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))))
@ -18,7 +16,7 @@
(define-namespace-anchor anchor) (define-namespace-anchor anchor)
(define (gui-dynamic-require sym) (define (gui-dynamic-require sym)
(if (gui-available?) (parameterize ([current-namespace (namespace-anchor->empty-namespace anchor)])
(parameterize ([current-namespace (namespace-anchor->empty-namespace anchor)]) (if (gui-available?)
(dynamic-require 'mred sym)) (dynamic-require 'mred sym)
(error "racket/gui/base is not available"))) (error "racket/gui/base is not available"))))