diff options
| -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)))) |