diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-23 21:39:14 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-23 21:39:14 -0700 |
| commit | 2da907a6e1c4cd83d7109b9805394484e43b6216 (patch) | |
| tree | 9d2565f5af3b56727b2ff74cb3d6a3852ab1e17e | |
| parent | e1246c65460c60df45b19143b76b1aee3078ed97 (diff) | |
| download | txr-2da907a6e1c4cd83d7109b9805394484e43b6216.tar.gz txr-2da907a6e1c4cd83d7109b9805394484e43b6216.tar.bz2 txr-2da907a6e1c4cd83d7109b9805394484e43b6216.zip | |
compiler: avoid using var symbol.
var is sys:var when we're working in the system package.
This sometimes confuses the code walker, because
(sys:var X) is the implementation of the @X notation.
* share/txr/stdlib/compiler.tl (expand-bind-mac-params): Use
sym instead of var.
| -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) |