diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2014-07-10 07:43:19 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2014-07-10 07:43:19 -0700 |
| commit | 955dec17ec449be79ac85b2c9e2e4fb825e612f3 (patch) | |
| tree | b355b213e1474e17e5bc2069e147c2cf89fcb149 /tests/011 | |
| parent | 157145753623fde988c5b4664168a0cbd6282503 (diff) | |
| download | txr-955dec17ec449be79ac85b2c9e2e4fb825e612f3.tar.gz txr-955dec17ec449be79ac85b2c9e2e4fb825e612f3.tar.bz2 txr-955dec17ec449be79ac85b2c9e2e4fb825e612f3.zip | |
* tests/011/macros-2.txr: Added test for labels shadowing macro,
and let shadowing symacro.
* tests/011/macros-2.expected: Regenerated
* txr.vim: Regenerated.
Diffstat (limited to 'tests/011')
| -rw-r--r-- | tests/011/macros-2.expected | 7 | ||||
| -rw-r--r-- | tests/011/macros-2.txr | 9 |
2 files changed, 14 insertions, 2 deletions
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))))))) |