From 8615311e3092283df22d5dd3b79564bf5e312e8b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 9 Jul 2018 22:24:31 -0700 Subject: compiler: bugfix in constant condition logic. * share/txr/stdlib/compiler.tl (%test-inv%): Fix reversed mapping; the way this is used, it is expected to map the negative tests to their positive counterparts. This didn't matter until the previous commit because before that commit, the value that was computed through this table wasn't used for anything. It is being used now. --- 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 6d50296d..53508c32 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -214,7 +214,7 @@ (defvarl %test-funs% (append %test-funs-pos% %test-funs-neg%)) -(defvarl %test-inv% (relate %test-funs-pos% %test-funs-neg%)) +(defvarl %test-inv% (relate %test-funs-neg% %test-funs-pos%)) (defvarl %block-using-funs% '(sys:capture-cont return* sys:abscond* match-fun eval load compile compile-file compile-toplevel)) -- cgit v1.2.3