diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/011/macros-1.expected | 1 | ||||
-rw-r--r-- | tests/011/macros-1.txr | 6 |
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 |