From 9eecb672352ec0d5038f35cb24c0ccad950a9507 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 7 Feb 2015 07:38:02 -0800
Subject: * tests/011/macros-1.txr: Add test for lexical function shadowing
 symbol macro.

* tests/011/macros-1.expected: Updated.
---
 tests/011/macros-1.expected | 1 +
 tests/011/macros-1.txr      | 6 ++++++
 2 files changed, 7 insertions(+)

(limited to 'tests/011')

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
@@ -12,6 +12,12 @@
         (symacrolet ((x (bar)))
           (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)))
-- 
cgit v1.2.3