Added code for scheme23

4 files changed, 22 insertions, 2 deletions

diff --git a/scheme/Makefile b/scheme/Makefile
index 4895313..a7bcd24 100644
--- a/scheme/Makefile
+++ b/scheme/Makefile
@@ -2,5 +2,6 @@ upload:
 	#python make_sweet_macros.py
 	zip -r aps aps/README.txt aps/compat.ikarus.sls aps/compat.ypsilon.sls aps/compat.mzscheme.sls aps/cut.sls aps/easy-test.sls aps/list-utils.sls aps/repeat.sls
 	scp aps.zip micheles@merlin.phyast.pitt.edu:public_html/scheme
-experimental.zip:
-	zip -r experimental experimental/mod?.sls
+experimental: experimental/mod?.sls experimental/static-map.sls
+	zip -r experimental experimental/mod?.sls experimental/static-map.sls
+	scp experimental.zip micheles@merlin.phyast.pitt.edu:public_html/scheme
diff --git a/scheme/experimental/defines.sls b/scheme/experimental/defines.sls
index 4dc65cd..edc753f 100644
--- a/scheme/experimental/defines.sls
+++ b/scheme/experimental/defines.sls
@@ -5,7 +5,10 @@
 
 (define-syntax visit-defines
   (lambda (x) "visited"))
+
 (define+ a 1)
 (define+ b 2)
+
+(display "defines instantiated\n")
 )
 
diff --git a/scheme/experimental/use-visit.ss b/scheme/experimental/use-visit.ss
new file mode 100644
index 0000000..9523d67
--- /dev/null
+++ b/scheme/experimental/use-visit.ss
@@ -0,0 +1,3 @@
+(import (rnrs) (experimental visit))
+(when #f (m)); this line is never executed at runtime
+(display a)
diff --git a/scheme/experimental/visit.sls b/scheme/experimental/visit.sls
new file mode 100644
index 0000000..4e3841e
--- /dev/null
+++ b/scheme/experimental/visit.sls
@@ -0,0 +1,13 @@
+#!r6rs
+(library (experimental visit)
+(export a m)
+(import (rnrs) (sweet-macros) (srfi :19))
+(def-syntax m
+  (begin
+    (display "visiting at ")
+    (display (date->string (current-date) "~5"))
+    (newline)
+    (lambda (x) #f)))
+(define a 42)
+(display "visit.sls instantiated!\n")
+)