diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 5d68e0f5..1ac0c3af 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -518,8 +518,7 @@ (let* ((treg me.(alloc-treg)) (pfrag me.(compile oreg env prot-form)) (cfrag me.(comp-progn treg env cleanup-body)) - (lclean (gensym "l")) - (lskip (gensym "l"))) + (lclean (gensym "l"))) me.(free-treg treg) (cond ((null pfrag.code) @@ -531,11 +530,10 @@ (t (new (frag pfrag.oreg ^((uwprot ,lclean) ,*pfrag.code - (jmp ,lskip) + (end nil) ,lclean ,*cfrag.code - (end nil) - ,lskip) + (end nil)) (uni pfrag.fvars pfrag.fvars) (uni cfrag.fvars cfrag.fvars)))))))) |