diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 7842f558..f7ae0bc3 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -319,6 +319,8 @@ (dreg me.(get-dreg special))) ^(bindv ,sub-bind.loc ,dreg))))) ,*bfrag.code + ,*(if specials + ^((end ,bfrag.oreg))) (end ,bfrag.oreg) ,lskip) (uni [reduce-left uni ifrags nil .fvars] |