22 lines
480 B
Scheme
22 lines
480 B
Scheme
;;; Compatability layer to translate DEFINE-NAMESPACE to R7RS's
|
|
;;; DEFINE-LIBRARY.
|
|
|
|
(define-syntax import-from-namespace
|
|
(syntax-rules ()
|
|
((import-from-namespace body ...) (import body ...))))
|
|
|
|
(define-syntax define-namespace
|
|
(syntax-rules ()
|
|
((define-namespace ns body ...)
|
|
(define-library (namespace ns) body ...))))
|
|
|
|
(display "hello world\n")
|
|
|
|
(define-namespace blah
|
|
(begin
|
|
(define x 5)))
|
|
|
|
(define-library (namespace blah)
|
|
(begin
|
|
(define (x) 5)))
|