diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-07-31 05:44:39 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-07-31 05:44:39 -0700 |
| commit | 7d2dfcb941a4954948bd99808676eae3456191c0 (patch) | |
| tree | 00d8a8bc89c234efd942e73d91545ed6bc48e1ff /share | |
| parent | ae6c40f3d231b9573a256693f354289c8900c25b (diff) | |
| download | txr-7d2dfcb941a4954948bd99808676eae3456191c0.tar.gz txr-7d2dfcb941a4954948bd99808676eae3456191c0.tar.bz2 txr-7d2dfcb941a4954948bd99808676eae3456191c0.zip | |
Evaluate doloop forms in an implicit tagbody.
This eliminates one incompatibility between doloop
and ANSI CL do.
* share/txr/stdlib/doloop.tl (sys:expand-doloop): Wrap body in
tagbody form.
* txr.1: Documentation updated.
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)) |