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 | 8b50725da4d58aa77ba61c4270c5407438b2209d (patch) | |
| tree | c85e223df677dd800579913e966ce102996f5eda /share | |
| parent | 9d59b9a607b0ebee9102ec7e2da00d7f24b54b0e (diff) | |
| download | txr-8b50725da4d58aa77ba61c4270c5407438b2209d.tar.gz txr-8b50725da4d58aa77ba61c4270c5407438b2209d.tar.bz2 txr-8b50725da4d58aa77ba61c4270c5407438b2209d.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.
Diffstat (limited to 'share')
| -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)) |