From e4a0ff809b8246d3bd5c47d947e51bfcf520d86e Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 17 Jun 2019 20:12:52 -0700
Subject: defset: code tidying.

* share/txr/stdlib/defset.tl (defset-expander):
Reduce (,*params) to ,params, which is parallel with the ,args
that it matches.
---
 share/txr/stdlib/defset.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/share/txr/stdlib/defset.tl b/share/txr/stdlib/defset.tl
index 1aee478a..7a2dd6fd 100644
--- a/share/txr/stdlib/defset.tl
+++ b/share/txr/stdlib/defset.tl
@@ -68,7 +68,7 @@
                    pgens rgens egens all-pairs agens)
       ^(defplace (,name . ,args) body
          (,getter ,setter
-           (tree-bind (,*params) ,args
+           (tree-bind ,params ,args
              (let* ((,gpf-pairs (mapcar (op (fun list) (gensym)) (list ,*fixpars)))
                     (,gpr-pairs (if ',restpar
                                   (if (consp ,restpar)
-- 
cgit v1.2.3