From 8fac3dbc895fcd7cc09cf464107076e72d0794dd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 30 Dec 2008 21:20:55 +0000 Subject: [PATCH] fix gui-available? to return #f for phases other than 0 svn: r12955 --- collects/scheme/gui/dynamic.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/scheme/gui/dynamic.ss b/collects/scheme/gui/dynamic.ss index 08a259f8c2..9340639133 100644 --- a/collects/scheme/gui/dynamic.ss +++ b/collects/scheme/gui/dynamic.ss @@ -4,9 +4,10 @@ gui-dynamic-require) (define (gui-available?) - (with-handlers ([exn:fail? (lambda (exn) #f)]) - (eq? (dynamic-require 'mred/private/dynamic 'kernel-initialized) - 'done))) + (and (zero? (variable-reference->phase (#%variable-reference))) + (with-handlers ([exn:fail? (lambda (exn) #f)]) + (eq? (dynamic-require 'mred/private/dynamic 'kernel-initialized) + 'done)))) (define-namespace-anchor anchor)