c0.mes, c1.mes: update.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 18 Jul 2016 18:25:16 +0000 (20:25 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 18 Jul 2016 18:25:16 +0000 (20:25 +0200)
TODO
c0.mes
c1.mes [new file with mode: 0644]

diff --git a/TODO b/TODO
index 0247dc36fbc4a70742782283c67dc8546bd569d8..7d0c7c7a5980543ce33b875439837f0e0d50d549 100644 (file)
--- a/TODO
+++ b/TODO
@@ -5,6 +5,7 @@
 ** bugs
 *** v c0.mes
 *** v closure.mes
+*** c1.mes
 *** v using (let () ...) in macro.mes/syntax.mes
 *** syntax.mes: closuring name? etc in syntax.mes
 *** syntax.mes: closuring: indicators: eval: no such symbol: ---
diff --git a/c0.mes b/c0.mes
index 29df12faaec3cc84fc0fae421682006eedb512f4..437bf7ca8348c807c32a90b4c736f216c7a3928a 100644 (file)
--- a/c0.mes
+++ b/c0.mes
@@ -8,11 +8,11 @@
 ;; 1
 
 (define b 0)
-;;(define x (lambda () b))
+(define x (lambda () b))
 (define (x) b)
 
-;;(display (x))
-;;(newline)
+(display (x))
+(newline)
 (define (c b)
   (display (x))
   (newline)
diff --git a/c1.mes b/c1.mes
new file mode 100644 (file)
index 0000000..bd5b9ba
--- /dev/null
+++ b/c1.mes
@@ -0,0 +1,16 @@
+
+;; guile: 00
+;; mes: 01
+
+(define (x)
+  (define b 1)
+  (define (y) b)
+  (set! b 0)
+  (display b)
+  (let ((b 2))
+    (y))
+  )
+
+(display (x))
+(newline)
+""