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

fix racket/gui/dynamic

Browse Source
This commit is contained in:
Matthew Flatt 2010-07-14 11:04:41 -06:00
parent f158effa98
commit 8e5eedc130
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/gui/dynamic.rkt
View File

@ -6,6 +6,8 @@
(define (gui-available?) (define (gui-available?)
(and (zero? (variable-reference->phase (#%variable-reference))) (and (zero? (variable-reference->phase (#%variable-reference)))
(with-handlers ([exn:fail? (lambda (exn) #f)]) (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) (eq? (dynamic-require 'mred/private/dynamic 'kernel-initialized)
'done)))) 'done))))