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 | ea1e031c3902ed935e4685e0e1cd630e26c6875d (patch) | |
| tree | 830a10762ff2461ac9a05abb04e10cf85b3ccd6c | |
| parent | 64303c5e3669dff67687cbb02a9f94f7323dd01e (diff) | |
| download | txr-ea1e031c3902ed935e4685e0e1cd630e26c6875d.tar.gz txr-ea1e031c3902ed935e4685e0e1cd630e26c6875d.tar.bz2 txr-ea1e031c3902ed935e4685e0e1cd630e26c6875d.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)))) |