Define suspend operator.

* lisplib.c (yield_set_entries): Added "suspend" to
end of name.

* share/txr/stdlib/yield.tl (suspend): New macro.

* txr.1: Documented suspend. Replaced subtly incorect
shift/reset implementation example with suspend implementation.

1 files changed, 1 insertions, 0 deletions

diff --git a/lisplib.c b/lisplib.c
index 47ccc7b5..a8de4a36 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -260,6 +260,7 @@ static val yield_set_entries(val dlt, val fun)
 {
   val name[] = {
     lit("obtain"), lit("obtain-block"), lit("yield-from"), lit("yield"),
+    lit("suspend"),
     nil
   };
   set_dlt_entries(dlt, name, fun);