Work for my Scheme talk

3 files changed, 11 insertions, 4 deletions

diff --git a/scheme/aps/lang.sls b/scheme/aps/lang.sls
index a884e55..fd0ec4d 100644
--- a/scheme/aps/lang.sls
+++ b/scheme/aps/lang.sls
@@ -21,8 +21,7 @@
     (sub (: let-form e)
          #'e)
     (sub (: let-form e1 e2)
-         (syntax-violation ': "Odd number of arguments"
-          (syntax->datum #'(let-form e1 e2))))
+         (syntax-violation ': "Odd number of arguments" #'let-form))
     (sub (: let-form patt value rest ... expr)
          #'(let-form ((patt value)) (: let-form rest ... expr))
          (identifier? #'let-form)
diff --git a/scheme/experimental/M.sls b/scheme/experimental/M.sls
index 9bc2d40..01e6269 100644
--- a/scheme/experimental/M.sls
+++ b/scheme/experimental/M.sls
@@ -2,6 +2,6 @@
 (library (experimental M)
 (export a)
 (import (rnrs) (experimental L))
-(when #f (m)); this line is never executed at runtime
-(display "M instantiated\n")
+(m); this line is expanded at compile-time
+(display "M instantiated\n"); at run-time
 )
diff --git a/scheme/experimental/my-lib.sls b/scheme/experimental/my-lib.sls
new file mode 100644
index 0000000..7d6fa21
--- /dev/null
+++ b/scheme/experimental/my-lib.sls
@@ -0,0 +1,8 @@
+#!r6rs
+(library (experimental my-lib)
+(export a b)
+(import (rnrs))
+(define a 42)
+(define b 0)
+(display "my-lib instantiated!\n")
+)