Macros obtain* and obtain*-block.

* lisplib.c (yield_set_entries): Add obtain* and obtain*-block
to autoload list.

* share/txr/stdlib/yield.tl (obtain*, obtain*-block):
New macros.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lisplib.c b/lisplib.c
index 9848db54..e2ad6ea3 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -262,6 +262,7 @@ static val yield_set_entries(val dlt, val fun)
 {
   val name[] = {
     lit("obtain"), lit("obtain-block"), lit("yield-from"), lit("yield"),
+    lit("obtain*"), lit("obtain*-block"),
     lit("suspend"),
     nil
   };