diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-20 20:15:06 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-20 20:15:06 -0700 |
| commit | faeef3185bf60d0cb73bed0a229ab21a71047085 (patch) | |
| tree | 6b3022cb4b8271acec79e2730efc3d91757c92c9 | |
| parent | 41dde8b3eb378ced652e9e4150c1fff5125615e0 (diff) | |
| download | txr-faeef3185bf60d0cb73bed0a229ab21a71047085.tar.gz txr-faeef3185bf60d0cb73bed0a229ab21a71047085.tar.bz2 txr-faeef3185bf60d0cb73bed0a229ab21a71047085.zip | |
compiler: bugfix: arg passing in progn dispatch.
* share/txr/stdlib/compiler.tl (compiler compile): Fix
nonsensical fourth argument expression in
comp-progn call.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 13d453d3..c63e1300 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -150,7 +150,7 @@ ((let let*) me.(comp-let oreg env form)) (lambda me.(comp-lambda oreg env form)) (sys:for-op me.(comp-for oreg env form)) - (progn me.(comp-progn oreg env (cadr form))) + (progn me.(comp-progn oreg env (cdr form))) (prog1 me.(comp-prog1 oreg env form)) (sys:quasi me.(comp-quasi oreg env form)) (sys:dvbind me.(compile oreg env (caddr form))) |