diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 0a473a74..c0e16c67 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -839,12 +839,12 @@ (> ,plen ,nfix)) (return-from ,err-block ',strict))))) ,*(append-each ((k key-pars)) - (tree-bind (key . var) k - (push var vars) + (tree-bind (key . sym) k + (push sym vars) (caseq key - (:whole ^((set ,var ,obj-var))) - (:form ^((set ,var ',ctx-form))) - (:env ^((set ,var ,menv-var)))))) + (:whole ^((set ,sym ,obj-var))) + (:form ^((set ,sym ',ctx-form))) + (:env ^((set ,sym ,menv-var)))))) ,*(append-each ((p req-pars)) (cond ((consp p) |