diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-03 09:07:31 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-03 09:07:31 -0700 |
| commit | 166a76bc0a18f9b5294953264f98e887ce153320 (patch) | |
| tree | f56c2f9481638d64768b607ec0b6c14856ab4428 /stdlib/compiler.tl | |
| parent | 0784a75aab021dc3a6e5669b9f0ab15e1177ad85 (diff) | |
| download | txr-166a76bc0a18f9b5294953264f98e887ce153320.tar.gz txr-166a76bc0a18f9b5294953264f98e887ce153320.tar.bz2 txr-166a76bc0a18f9b5294953264f98e887ce153320.zip | |
compiler: inline lambda: not creating rest param.
* stdlib/compiler.tl (lambda-apply-transform): In one case,
the add call is missing to actually emit the rest parameter.
Diffstat (limited to 'stdlib/compiler.tl')
| -rw-r--r-- | stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index 3d89abed..b1b3681a 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -2040,7 +2040,7 @@ ((and pars.rest apply-list-expr) (add ^(,pars.rest ,al-val))) (pars.rest - ^(,pars.rest nil)) + (add ^(,pars.rest nil))) (apply-list-expr (add ^(,ign-2 (if ,al-val (lambda-excess-apply-list)))))))) |