fix racket/gui/dynamic
This commit is contained in:
parent
f158effa98
commit
8e5eedc130
|
@ -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))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user