From 1db866f4520c9e9a5ac63837a84c7ac7ff2e359e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 19 Mar 2018 06:37:29 -0700 Subject: compiler: bugfix: misused assoc in function lookup. * share/txr/stdlib/compiler.tl (sys:env lookup-fun): Fix swapped args in assoc call. --- share/txr/stdlib/compiler.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index cd7eb719..47abbeab 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -60,7 +60,7 @@ (:method lookup-fun (me sym) (condlet - (((cell (assoc me.fb sym))) (cdr cell)) + (((cell (assoc sym me.fb))) (cdr cell)) (((up me.up)) up.(lookup-fun sym)) (t nil))) -- cgit v1.2.3