From 391e452d897e272a70b81c784398d30f64d1d5a4 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 24 Mar 2018 17:45:09 -0700 Subject: compiler: fix lexical function call. * share/txr/stdlib/compiler.tl (compiler comp-call): Pass the location, not the binding itself, to comp-call-impl. --- share/txr/stdlib/compiler.tl | 4 ++-- 1 file 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)))) -- cgit v1.2.3