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 419af9cb..73258677 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -449,7 +449,8 @@ cfrag.fvars cfrag.ffuns)))))) me.(maybe-free-treg treg oreg) (new (frag oreg - ^((swtch ,ifrag.oreg ,*clabels) + ^(,*ifrag.code + (swtch ,ifrag.oreg ,*clabels) ,*(mappend .code cfrags) ,lend) (uni ifrag.fvars [reduce-left uni cfrags nil .fvars]) |