diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index bab0d341..2977b865 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -826,10 +826,10 @@ (append re '(nil))))) me.(maybe-free-treg fireg oreg) me.(free-treg igreg) - (new (frag oreg + (new (frag fireg (append fi-frag.code - re-frag.code - (maybe-mov oreg fireg)) + (maybe-mov fireg fi-frag.oreg) + re-frag.code) (uni fi-frag.fvars re-frag.fvars) (uni fi-frag.ffuns re-frag.ffuns))))) ((prog1 fi) me.(compile oreg env fi)) |