diff options
Diffstat (limited to 'stdlib/compiler.tl')
| -rw-r--r-- | stdlib/compiler.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index 7d9cb515..63ceb519 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -2037,7 +2037,7 @@ (al-val (gensym)) (shadow-p (let ((all-vars (append pars.req pars.(opt-syms) (if pars.rest (list pars.rest))))) - (or (isec all-vars fix-arg-iter) + (or (isecp all-vars fix-arg-iter) (member apply-list-expr all-vars))))) ^(,(if shadow-p 'let 'alet) ,(zip fix-vals fix-arg-iter) (let* ,(build @@ -2406,7 +2406,7 @@ self obj))))) (symvec (sys:vm-desc-symvec vm-desc))) out.(add (list-from-vm-desc vm-desc)) - (when (isec symvec %package-manip%) + (when (isecp symvec %package-manip%) out.(add :fence))))) (dump-to-tlo out-stream out)))) |