diff options
-rw-r--r-- | share/txr/stdlib/keyparams.tl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/share/txr/stdlib/keyparams.tl b/share/txr/stdlib/keyparams.tl index 9a4e43a6..7ee2d8f5 100644 --- a/share/txr/stdlib/keyparams.tl +++ b/share/txr/stdlib/keyparams.tl @@ -36,8 +36,8 @@ (each ((k keys)) (add (if (memp k args) t))))) -(defun sys:build-key-list (key-params) - (let ((constant (group-by [chain second constantp] key-params))) +(defun sys:build-key-list (key-params menv) + (let ((constant (group-by (opip second (constantp @1 menv)) key-params))) (let ((var-keys (mapcar (ret ^(cons ',(intern (symbol-name (first @1)) 'keyword) ,(second @1))) @@ -83,7 +83,7 @@ (let* ((key-params-p [keep-if third key-params]) (key-vars [mapcar first key-params]) (key-vars-p [mapcar third key-params-p]) - (keys (sys:build-key-list key-params)) + (keys (sys:build-key-list key-params menv)) (keys-p (mapcar (op intern (symbol-name (first @1)) 'keyword) key-params-p))) (list eff-param |