diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 6f0211ad..1e089402 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -380,8 +380,7 @@ ,lelse ,*el-frag.code ,*(maybe-mov oreg el-frag.oreg) - ,lskip - ,*(maybe-mov te-oreg te-frag.oreg)) + ,lskip) (uni te-frag.fvars (uni th-frag.fvars el-frag.fvars)) (uni te-frag.ffuns (uni th-frag.ffuns el-frag.ffuns)))))))) ((op test then) |