diff options
| -rw-r--r-- | share/txr/stdlib/optimize.tl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/share/txr/stdlib/optimize.tl b/share/txr/stdlib/optimize.tl index 259a64ae..81536c32 100644 --- a/share/txr/stdlib/optimize.tl +++ b/share/txr/stdlib/optimize.tl @@ -258,6 +258,8 @@ (set insn ninsn ninsn (match-case insn ((if (d @reg) @jlabel) nil) + ((if (t 0) @jlabel) + ^(jmp ,jlabel)) ((jmp @jlabel) (let ((jinsns [bb.hash jlabel].insns)) (match-case jinsns |