From d38e9a82b7bdff9f990ff5c5650366890f16cfe8 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 30 Oct 2015 21:50:32 -0700 Subject: 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. --- lisplib.c | 1 + 1 file changed, 1 insertion(+) (limited to 'lisplib.c') 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); -- cgit v1.2.3