Work on scheme24, on cross-phase side effects

3 files changed, 19 insertions, 3 deletions

diff --git a/scheme/experimental/mod2.sls b/scheme/experimental/mod2.sls
index cc35ca1..f5ade0d 100644
--- a/scheme/experimental/mod2.sls
+++ b/scheme/experimental/mod2.sls
@@ -11,4 +11,6 @@
   (define (incr-x)
     (set! x (+ 1 x))
     x)
+
+  (display "Instantiated mod2\n")
 )
diff --git a/scheme/experimental/mod3.sls b/scheme/experimental/mod3.sls
index 88a41ac..6bdde96 100644
--- a/scheme/experimental/mod3.sls
+++ b/scheme/experimental/mod3.sls
@@ -4,11 +4,11 @@
 (import (rnrs) (sweet-macros) (for (experimental mod2) expand run))
 
 (def-syntax m
-  (begin
+  (lambda (x)
     (display "At expand-time x=")
     (display (incr-x))
     (newline)
-    (syntax-match () (sub (m) #'#'f))))
+    "m-expanded"))
 
 (define (run) ;; this is executed at runtime
   (display "At run-time x=")
@@ -16,6 +16,5 @@
   (newline))
 
 (m) ;; this is executed at expand time
-
 )
 
diff --git a/scheme/experimental/use-mod2.ss b/scheme/experimental/use-mod2.ss
new file mode 100644
index 0000000..51cbcfb
--- /dev/null
+++ b/scheme/experimental/use-mod2.ss
@@ -0,0 +1,15 @@
+(import (rnrs) (sweet-macros) (for (experimental mod2) expand run))
+
+(def-syntax m
+  (lambda (x)
+    (display "At expand-time x=")
+    (display (incr-x))
+    (newline)
+    "m-expanded"))
+
+(m)
+
+(begin
+  (display "At run-time x=")
+  (display (incr-x))
+  (newline))