summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/011/macros-1.expected1
-rw-r--r--tests/011/macros-1.txr6
2 files changed, 7 insertions, 0 deletions
diff --git a/tests/011/macros-1.expected b/tests/011/macros-1.expected
index 66039383..67fd82eb 100644
--- a/tests/011/macros-1.expected
+++ b/tests/011/macros-1.expected
@@ -1,2 +1,3 @@
((42) (a))
+(1)
((1 1) (2 3))
diff --git a/tests/011/macros-1.txr b/tests/011/macros-1.txr
index 35b9d472..946cbf2e 100644
--- a/tests/011/macros-1.txr
+++ b/tests/011/macros-1.txr
@@ -13,6 +13,12 @@
(list (rem-num (foo)) (rem-num x)))))
(prinl
+ (let ((x 0) (y 1))
+ (symacrolet ((a x) (b y))
+ (flet ((x (. args) [apply list args]))
+ [x y]))))
+
+ (prinl
(let ((x 0))
(symacrolet ((a (inc x)))
(list