diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-06-17 20:12:52 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-06-17 20:12:52 -0700 |
| commit | e4a0ff809b8246d3bd5c47d947e51bfcf520d86e (patch) | |
| tree | 35468c3bd0cb3bc38ceb10b4f550494f7365a5eb | |
| parent | 240fe7755984ed0a68cdab10bed11d2fae4e2802 (diff) | |
| download | txr-e4a0ff809b8246d3bd5c47d947e51bfcf520d86e.tar.gz txr-e4a0ff809b8246d3bd5c47d947e51bfcf520d86e.tar.bz2 txr-e4a0ff809b8246d3bd5c47d947e51bfcf520d86e.zip | |
defset: code tidying.
* share/txr/stdlib/defset.tl (defset-expander):
Reduce (,*params) to ,params, which is parallel with the ,args
that it matches.
| -rw-r--r-- | share/txr/stdlib/defset.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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) |