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

fix gui-available? to return #f for phases other than 0

Browse Source 
svn: r12955
This commit is contained in:
Matthew Flatt 2008-12-30 21:20:55 +00:00
parent 5b395a3abc
commit 8fac3dbc89
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scheme/gui/dynamic.ss
View File

@ -4,9 +4,10 @@
gui-dynamic-require) gui-dynamic-require)
(define (gui-available?) (define (gui-available?)
(and (zero? (variable-reference->phase (#%variable-reference)))
(with-handlers ([exn:fail? (lambda (exn) #f)]) (with-handlers ([exn:fail? (lambda (exn) #f)])
(eq? (dynamic-require 'mred/private/dynamic 'kernel-initialized) (eq? (dynamic-require 'mred/private/dynamic 'kernel-initialized)
'done))) 'done))))
(define-namespace-anchor anchor) (define-namespace-anchor anchor)