diff options
Diffstat (limited to 'tests/011/macros-2.txr')
-rw-r--r-- | tests/011/macros-2.txr | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/011/macros-2.txr b/tests/011/macros-2.txr index 0d63a13b..be385c6f 100644 --- a/tests/011/macros-2.txr +++ b/tests/011/macros-2.txr @@ -2,7 +2,7 @@ (defmacro while ((condition : result) . body) (let ((cblk (gensym "cnt-blk-")) (bblk (gensym "brk-blk-"))) - '(macrolet ((break (value) '(return-from ,',bblk ,value))) + ^(macrolet ((break (value) ^(return-from ,',bblk ,value))) (symacrolet ((break (return-from ,bblk)) (continue (return-from ,cblk))) (block ,bblk |