From 6ddb270dcac7bc40a5f15a00fcbb035ee9c78286 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 28 Feb 2019 19:25:08 -0800 Subject: 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. --- share/txr/stdlib/compiler.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'share') 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))) -- cgit v1.2.3