Examples for scheme23

3 files changed, 21 insertions, 0 deletions

diff --git a/scheme/experimental/H.ss b/scheme/experimental/H.ss
new file mode 100644
index 0000000..f0e517d
--- /dev/null
+++ b/scheme/experimental/H.ss
@@ -0,0 +1,3 @@
+#!r6rs
+(import (rnrs) (experimental M))
+(display a)
diff --git a/scheme/experimental/L.sls b/scheme/experimental/L.sls
new file mode 100644
index 0000000..b4ec285
--- /dev/null
+++ b/scheme/experimental/L.sls
@@ -0,0 +1,11 @@
+#!r6rs
+(library (experimental L)
+(export m a)
+(import (rnrs) (sweet-macros))
+(def-syntax m
+  (begin
+    (display "visiting L\n")
+    (lambda (x) #f)))
+(define a 42)
+(display "L instantiated\n")
+)
diff --git a/scheme/experimental/M.sls b/scheme/experimental/M.sls
new file mode 100644
index 0000000..9bc2d40
--- /dev/null
+++ b/scheme/experimental/M.sls
@@ -0,0 +1,7 @@
+#!r6rs
+(library (experimental M)
+(export a)
+(import (rnrs) (experimental L))
+(when #f (m)); this line is never executed at runtime
+(display "M instantiated\n")
+)