diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 | ||||
| -rw-r--r-- | share/txr/stdlib/optimize.tl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 6b1c1a17..e624970a 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1161,7 +1161,7 @@ (pend frag.code me.(maybe-mov treg frag.oreg)) (unless islast - (add ^(ifq ,treg ,nil ,lout))) + (add ^(ifq ,treg (t 0) ,lout))) (set fvars (uni fvars frag.fvars)) (set ffuns (uni ffuns frag.ffuns)))))))) me.(maybe-free-treg treg oreg) diff --git a/share/txr/stdlib/optimize.tl b/share/txr/stdlib/optimize.tl index 02354e25..813264df 100644 --- a/share/txr/stdlib/optimize.tl +++ b/share/txr/stdlib/optimize.tl @@ -289,7 +289,7 @@ (jmp @(and @jjlabel @(not @jlabel))) . @nil) ^(if ,reg ,jjlabel)) ((@jlabel - (ifq @reg nil @jjlabel) . @jrest) + (ifq @reg (t 0) @jjlabel) . @jrest) (let ((xbl (if jrest bb.(cut-block [bb.hash jlabel] jrest jinsns) bb.(next-block [bb.hash jlabel])))) |