diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-24 17:45:09 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-24 17:45:09 -0700 |
| commit | 391e452d897e272a70b81c784398d30f64d1d5a4 (patch) | |
| tree | 830a10762ff2461ac9a05abb04e10cf85b3ccd6c | |
| parent | a58c642f9fe4d364c6b23f312ee9e8a2066bea1c (diff) | |
| download | txr-391e452d897e272a70b81c784398d30f64d1d5a4.tar.gz txr-391e452d897e272a70b81c784398d30f64d1d5a4.tar.bz2 txr-391e452d897e272a70b81c784398d30f64d1d5a4.zip | |
compiler: fix lexical function call.
* share/txr/stdlib/compiler.tl (compiler comp-call): Pass the
location, not the binding itself, to comp-call-impl.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 403263ce..f7f23039 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -610,8 +610,8 @@ (defmeth compiler comp-call (me oreg env sym args) (condlet - (((freg env.(lookup-fun sym))) - me.(comp-call-impl oreg env 'call freg args)) + (((fbind env.(lookup-fun sym))) + me.(comp-call-impl oreg env 'call fbind.loc args)) (((fidx me.(get-fidx sym))) me.(comp-call-impl oreg env 'gcall fidx args)))) |