diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-02-28 19:25:08 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-02-28 19:25:08 -0800 |
| commit | 52599ee7d944b2dff38ca6f2cef283458bce8174 (patch) | |
| tree | 7cce545d8f553941e5e0a8b9de3e1be8d2f83103 | |
| parent | 4a7cfeb079003251041e412af4fbc3f7289fa75b (diff) | |
| download | txr-52599ee7d944b2dff38ca6f2cef283458bce8174.tar.gz txr-52599ee7d944b2dff38ca6f2cef283458bce8174.tar.bz2 txr-52599ee7d944b2dff38ca6f2cef283458bce8174.zip | |
compiler: fix (apply (fun (lambda ..))).
* share/txr/stdlib/compiler.tl (compiler comp-fun-form): Fix
an instance of sym not being unquoted into the quasiquote
template, causing the compiler to compile a call to the
nonexistent function called sym.
| -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 1c1101f2..c11ca285 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1008,7 +1008,7 @@ (if fbind fbind.loc me.(get-sidx arg)) (cdr args)))) ((and (consp arg) (eq (car arg) 'lambda)) - me.(comp-fun-form oreg env ^(sym ,arg ,*(cdr args)))) + me.(comp-fun-form oreg env ^(,sym ,arg ,*(cdr args)))) (t :))) (lambda me.(comp-inline-lambda oreg env opcode (car args) (cdr args))) |