From fcb0583724b496d11d456d32e1bee3430c2876a2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 24 Oct 2010 09:32:44 -0600 Subject: [PATCH] fix racket/gui/dynamic --- collects/racket/gui/dynamic.rkt | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/collects/racket/gui/dynamic.rkt b/collects/racket/gui/dynamic.rkt index 800836da54..8ed50b2ef6 100644 --- a/collects/racket/gui/dynamic.rkt +++ b/collects/racket/gui/dynamic.rkt @@ -9,8 +9,6 @@ ;; 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: - (module->namespace 'mred/private/dynamic) ;; Double check that it seems to have started ok: (eq? (dynamic-require 'mred/private/dynamic 'kernel-initialized) 'done)))) @@ -18,7 +16,7 @@ (define-namespace-anchor anchor) (define (gui-dynamic-require sym) - (if (gui-available?) - (parameterize ([current-namespace (namespace-anchor->empty-namespace anchor)]) - (dynamic-require 'mred sym)) - (error "racket/gui/base is not available"))) + (parameterize ([current-namespace (namespace-anchor->empty-namespace anchor)]) + (if (gui-available?) + (dynamic-require 'mred sym) + (error "racket/gui/base is not available"))))