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