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 | dbc319f348c17a56c92caa30b1a3f755ca059f69 (patch) | |
| tree | 9d2565f5af3b56727b2ff74cb3d6a3852ab1e17e | |
| parent | 7ab00fe4459a5e28681412495441c3671d8de2c6 (diff) | |
| download | txr-dbc319f348c17a56c92caa30b1a3f755ca059f69.tar.gz txr-dbc319f348c17a56c92caa30b1a3f755ca059f69.tar.bz2 txr-dbc319f348c17a56c92caa30b1a3f755ca059f69.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) |