;;; 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)))