From 7d2dfcb941a4954948bd99808676eae3456191c0 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 31 Jul 2017 05:44:39 -0700
Subject: 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.
---
 share/txr/stdlib/doloop.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'share')

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))
-- 
cgit v1.2.3