diff options
| -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 d1f5c016..6d50296d 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -497,7 +497,7 @@ (set fun [%test-inv% fun]) (swap then else)) (if (and (constantp left) (constantp right)) - me.(compile oreg env (if (eq (eval left) (eval right)) then else)) + me.(compile oreg env (if (call fun (eval left) (eval right)) then else)) (let* ((le-oreg me.(alloc-treg)) (ri-oreg me.(alloc-treg)) (lelse (gensym "l")) |