From 8e5eedc130c1092ca91835e1df66392cfd31bcd9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 14 Jul 2010 11:04:41 -0600 Subject: [PATCH] fix racket/gui/dynamic --- 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 9340639133..7b6aaed689 100644 --- a/collects/racket/gui/dynamic.rkt +++ b/collects/racket/gui/dynamic.rkt @@ -6,6 +6,8 @@ (define (gui-available?) (and (zero? (variable-reference->phase (#%variable-reference))) (with-handlers ([exn:fail? (lambda (exn) #f)]) + ;; Fails if mred/private/dynamic is not instantiated: + (module->language-info 'mred/private/dynamic #f) (eq? (dynamic-require 'mred/private/dynamic 'kernel-initialized) 'done))))