diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 986ebb7e..fd315944 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -501,7 +501,8 @@ ^(,*(if nfrag nfrag.code) (block ,oreg ,nreg ,lskip) ,*bfrag.code - (end ,bfrag.oreg) + ,*(maybe-mov oreg bfrag.oreg) + (end ,oreg) ,lskip) bfrag.fvars bfrag.ffuns))))) |