diff options
Diffstat (limited to 'tests/011')
| -rw-r--r-- | tests/011/macros-2.expected | 2 | ||||
| -rw-r--r-- | tests/011/macros-2.txr | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/tests/011/macros-2.expected b/tests/011/macros-2.expected index a1334a6f..24310618 100644 --- a/tests/011/macros-2.expected +++ b/tests/011/macros-2.expected @@ -9,7 +9,7 @@ 28 29 30 -(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)))) +(block #:brk-blk-0002 (for nil ((< i 100) nil) nil (block #:cnt-blk-0001 (if (< (sys:setq i (+ i 1)) 20) (return-from #:cnt-blk-0001)) (if (> i 30) (return-from #:brk-blk-0002)) (prinl i)))) (while break) (while break) (while break) diff --git a/tests/011/macros-2.txr b/tests/011/macros-2.txr index 12f957df..9a53f115 100644 --- a/tests/011/macros-2.txr +++ b/tests/011/macros-2.txr @@ -1,4 +1,6 @@ @(do + (set *gensym-counter* 0) + (defmacro while ((condition : result) . body) (let ((cblk (gensym "cnt-blk-")) (bblk (gensym "brk-blk-"))) |