define-namespace and SRFI-1

1 files changed, 21 insertions, 0 deletions

diff --git a/define-namespace-7.scm b/define-namespace-7.scm
new file mode 100644
index 0000000..6c93183
--- /dev/null
+++ b/define-namespace-7.scm
@@ -0,0 +1,21 @@
+;;; 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)))