diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index a395347d..2dba0bbe 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1638,10 +1638,11 @@ ^(,*exp.code ,*me.(maybe-mov dreg exp.oreg)) exp.fvars - exp.ffuns)))) + exp.ffuns + exp.pars)))) (misleading-ref-check exp env form) (push lt-frag me.lt-frags) - (new (frag dreg nil)))))))) + (new (frag dreg nil nil nil exp.pars)))))))) (defmeth compiler optimize (me insns) (let ((olev *opt-level*)) |