diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-04-15 18:32:59 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-04-15 18:32:59 -0700 |
| commit | 769233740365ff7dbbb8365fa3800d5d16873845 (patch) | |
| tree | c85e223df677dd800579913e966ce102996f5eda | |
| parent | f8b30fad490086472cb088f76b968ca8ad769eff (diff) | |
| download | txr-769233740365ff7dbbb8365fa3800d5d16873845.tar.gz txr-769233740365ff7dbbb8365fa3800d5d16873845.tar.bz2 txr-769233740365ff7dbbb8365fa3800d5d16873845.zip | |
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.
| -rw-r--r-- | share/txr/stdlib/yield.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |