From 2da907a6e1c4cd83d7109b9805394484e43b6216 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 23 Mar 2018 21:39:14 -0700 Subject: 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. --- share/txr/stdlib/compiler.tl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'share') 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) -- cgit v1.2.3