diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index d0d6615d..34c0134d 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1135,7 +1135,7 @@ (:env ^((set ,sym ,menv-var)))))) ,*(append-each ((p req-pars)) (cond - ((consp p) + ((listp p) ^((set ,curs (car ,obj-var)) (set ,obj-var (cdr ,obj-var)) ,*(expand-rec p curs))) @@ -1146,7 +1146,7 @@ ,*(append-each ((o opt-pars)) (tree-bind (p : init-form pres-p) o (cond - ((consp p) + ((listp p) (when pres-p (push pres-p vars)) ^((set ,curs (or (car ,obj-var) |