diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-07-09 22:24:31 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-07-09 22:24:31 -0700 |
| commit | 486699d261d93827aeea1e134e92854e9cfa5aea (patch) | |
| tree | c0f1e8c842c6c69d981b6d0aeb662247641b3b06 | |
| parent | 4ff562efd5888c7699ec66927a570570800fede3 (diff) | |
| download | txr-486699d261d93827aeea1e134e92854e9cfa5aea.tar.gz txr-486699d261d93827aeea1e134e92854e9cfa5aea.tar.bz2 txr-486699d261d93827aeea1e134e92854e9cfa5aea.zip | |
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.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |