diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-03 12:53:06 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-03 12:53:06 -0700 |
| commit | a06f6a7216b0f2f1c4f64e06f599551f0fb5ac34 (patch) | |
| tree | 2cc8ee39c5c60a058e17fe17871df74474115ba3 /stdlib/compiler.tl | |
| parent | 1b704d697cd8135fef278c1a7c330ac11a667388 (diff) | |
| download | txr-a06f6a7216b0f2f1c4f64e06f599551f0fb5ac34.tar.gz txr-a06f6a7216b0f2f1c4f64e06f599551f0fb5ac34.tar.bz2 txr-a06f6a7216b0f2f1c4f64e06f599551f0fb5ac34.zip | |
compiler: inline lambda: fix : from apply-list case
* stdlib/compiler.tl (lambda-apply-transform): When processing
optional argument from apply-list, push an entry into
check-opts, so the fixup code is generated for it.
New test cases pass now.
Diffstat (limited to 'stdlib/compiler.tl')
| -rw-r--r-- | stdlib/compiler.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index 23c86ce8..8e053061 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -2072,7 +2072,8 @@ t)))) (t (add ^(,var-sym (if ,al-val (pop ,al-val) - ,init-form))))))) + ,init-form))))) + (push (list* var-sym have-sym init-form) check-opts))) (if pars.rest (add ^(,pars.rest ,al-val)) (add ^(,ign-2 (if ,al-val |