From 955dec17ec449be79ac85b2c9e2e4fb825e612f3 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 10 Jul 2014 07:43:19 -0700
Subject: * tests/011/macros-2.txr: Added test for labels shadowing macro, and
 let shadowing symacro.

* tests/011/macros-2.expected: Regenerated

* txr.vim: Regenerated.
---
 tests/011/macros-2.expected | 7 ++++++-
 tests/011/macros-2.txr      | 9 ++++++++-
 2 files changed, 14 insertions(+), 2 deletions(-)

(limited to 'tests')

diff --git a/tests/011/macros-2.expected b/tests/011/macros-2.expected
index 90fb118b..a1334a6f 100644
--- a/tests/011/macros-2.expected
+++ b/tests/011/macros-2.expected
@@ -9,4 +9,9 @@
 28
 29
 30
-(block #:brk-blk-0004 (for nil ((< i 100) nil) nil (block #:cnt-blk-0003 (if (< (inc i) 20) (return-from #:cnt-blk-0003)) (if (> i 30) (return-from #:brk-blk-0004)) (prinl i))))
+(block #:brk-blk-0006 (for nil ((< i 100) nil) nil (block #:cnt-blk-0005 (if (< (inc i) 20) (return-from #:cnt-blk-0005)) (if (> i 30) (return-from #:brk-blk-0006)) (prinl i))))
+(while break)
+(while break)
+(while break)
+(while break)
+(while break)
diff --git a/tests/011/macros-2.txr b/tests/011/macros-2.txr
index be385c6f..12f957df 100644
--- a/tests/011/macros-2.txr
+++ b/tests/011/macros-2.txr
@@ -24,4 +24,11 @@
             continue)
           (if (> i 30)
             break)
-          (prinl i)))))
+          (prinl i))))
+
+   (let ((i 0))
+     (while ((< i 5))
+       (inc i)
+       (labels ((while () 'while))
+         (let ((break 'break))
+           (prinl (list (while) break)))))))
-- 
cgit v1.2.3