diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/doloop.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/doloop.tl b/share/txr/stdlib/doloop.tl index 770b7b05..9c404855 100644 --- a/share/txr/stdlib/doloop.tl +++ b/share/txr/stdlib/doloop.tl @@ -45,7 +45,7 @@ ((,(if pllel 'pset 'set) ,*(mappend (ado unless (eq @1 @3) ^(,@1 ,@3)) xvars))) - ,*body))) + (tagbody ,*body)))) (defmacro doloop (:form f vars cexp . body) (sys:expand-doloop f vars cexp body)) |