26 lines
740 B
Racket
26 lines
740 B
Racket
#lang scheme/base
|
|
(require (except-in mred
|
|
make-gui-namespace
|
|
make-gui-empty-namespace))
|
|
|
|
(provide (all-from-out mred)
|
|
make-gui-namespace
|
|
make-gui-empty-namespace)
|
|
|
|
(define-namespace-anchor anchor)
|
|
|
|
(define (make-gui-empty-namespace)
|
|
(let ([ns (make-base-empty-namespace)])
|
|
(namespace-attach-module (namespace-anchor->empty-namespace anchor)
|
|
'scheme/gui/base
|
|
ns)
|
|
ns))
|
|
|
|
(define (make-gui-namespace)
|
|
(let ([ns (make-gui-empty-namespace)])
|
|
(parameterize ([current-namespace ns])
|
|
(namespace-require 'scheme/base)
|
|
(namespace-require 'scheme/gui/base)
|
|
(namespace-require 'scheme/class))
|
|
ns))
|