From 200f5cb80aecf7fc790f0deaa0575c111e88439b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 15 Jan 2011 18:04:56 -0700 Subject: [PATCH] fix `gui-available?' when `racket/gui/base' is declared but not instantiated --- collects/racket/gui/dynamic.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/racket/gui/dynamic.rkt b/collects/racket/gui/dynamic.rkt index c5453056ab..a1fe175f5f 100644 --- a/collects/racket/gui/dynamic.rkt +++ b/collects/racket/gui/dynamic.rkt @@ -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))))