12 lines
427 B
Racket
12 lines
427 B
Racket
#lang scheme/base
|
|
(require scheme/gui/base
|
|
scheme/gui/dynamic)
|
|
;; Don't change this program to use `racket'; ths point
|
|
;; is to test `scheme/gui/base' exports
|
|
|
|
(let ([ns ((gui-dynamic-require 'make-gui-namespace))]
|
|
[orig-ns (current-namespace)])
|
|
(when (namespace-variable-value 'hash #t (lambda () #f) ns)
|
|
(error "did not expect a binding for `hash'"))
|
|
(namespace-attach-module orig-ns 'scheme/base ns))
|