From 769233740365ff7dbbb8365fa3800d5d16873845 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 15 Apr 2017 18:32:59 -0700
Subject: Bugfix: incorrect substitution in suspend macro.

* share/txr/stdlib/yield.tl (suspend): The body forms
must be inserted into a progn, because sys:abscond-from
just takes one optional value to evaluate.
---
 share/txr/stdlib/yield.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/share/txr/stdlib/yield.tl b/share/txr/stdlib/yield.tl
index f763d3e5..97c0cd87 100644
--- a/share/txr/stdlib/yield.tl
+++ b/share/txr/stdlib/yield.tl
@@ -86,5 +86,5 @@
 
 (defmacro suspend (:form form name var . body)
   ^(sys:capture-cont ',name (lambda (,var)
-                              (sys:abscond-from ,name ,*body))
+                              (sys:abscond-from ,name (progn ,*body)))
                      ',form))
-- 
cgit v1.2.3