702df4b07a
It was pulling from `scheme/gui/base', instead. The one from `scheme/gui/base' is now different and still pulls from `scheme/gui/base'. This could break some programs that accidentally depended on `scheme/gui/base' exports from `gui-dynamic-require', but it's more likely to fix problems.
14 lines
431 B
Racket
14 lines
431 B
Racket
#lang racket/base
|
|
(require (only-in racket/gui/dynamic
|
|
gui-available?))
|
|
|
|
(provide gui-available?
|
|
gui-dynamic-require)
|
|
|
|
(define (gui-dynamic-require sym)
|
|
(parameterize ([current-namespace (variable-reference->empty-namespace
|
|
(#%variable-reference))])
|
|
(if (gui-available?)
|
|
(dynamic-require 'mred sym)
|
|
(error "scheme/gui/base is not available"))))
|