diff options
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))))))) |