diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/011/macros-2.expected | 12 | ||||
| -rw-r--r-- | tests/011/macros-2.txr | 12 |
2 files changed, 12 insertions, 12 deletions
diff --git a/tests/011/macros-2.expected b/tests/011/macros-2.expected index 24310618..5cb887f6 100644 --- a/tests/011/macros-2.expected +++ b/tests/011/macros-2.expected @@ -9,9 +9,9 @@ 28 29 30 -(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) -(while break) -(while break) +(block #:brk-blk-0002 (for nil ((< i 100) nil) nil (block #:cnt-blk-0001 (if (< (sys:setq i (succ i)) 20) (return-from #:cnt-blk-0001)) (if (> i 30) (return-from #:brk-blk-0002)) (prinl i)))) +(whilst break) +(whilst break) +(whilst break) +(whilst break) +(whilst break) diff --git a/tests/011/macros-2.txr b/tests/011/macros-2.txr index 9a53f115..96045ca4 100644 --- a/tests/011/macros-2.txr +++ b/tests/011/macros-2.txr @@ -1,7 +1,7 @@ @(do (set *gensym-counter* 0) - (defmacro while ((condition : result) . body) + (defmacro whilst ((condition : result) . body) (let ((cblk (gensym "cnt-blk-")) (bblk (gensym "brk-blk-"))) ^(macrolet ((break (value) ^(return-from ,',bblk ,value))) @@ -12,7 +12,7 @@ (block ,cblk ,*body))))))) (let ((i 0)) - (while ((< i 100)) + (whilst ((< i 100)) (if (< (inc i) 20) continue) (if (> i 30) @@ -21,7 +21,7 @@ (prinl (sys:expand - '(while ((< i 100)) + '(whilst ((< i 100)) (if (< (inc i) 20) continue) (if (> i 30) @@ -29,8 +29,8 @@ (prinl i)))) (let ((i 0)) - (while ((< i 5)) + (whilst ((< i 5)) (inc i) - (labels ((while () 'while)) + (labels ((whilst () 'whilst)) (let ((break 'break)) - (prinl (list (while) break))))))) + (prinl (list (whilst) break))))))) |