~ chicken-core (chicken-5) 9a5b457e9ebde1ef0d5938d1f1412d8ffde435c6
commit 9a5b457e9ebde1ef0d5938d1f1412d8ffde435c6
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Wed Mar 14 17:51:50 2018 +1300
Commit: Peter Bex <peter@more-magic.net>
CommitDate: Sun Mar 18 15:07:03 2018 +0100
Use "rest" as the rest argument variable name in DSSSL procedures
This just changes the variable name used for rest arguments in DSSSL
procedures from "tmp" to "rest", which is ever-so-slightly more
intuitive when inspecting the procedure's resulting lambda-info.
Signed-off-by: Peter Bex <peter@more-magic.net>
diff --git a/expand.scm b/expand.scm
index 18237e54..fad7e7cb 100644
--- a/expand.scm
+++ b/expand.scm
@@ -403,7 +403,7 @@
(r (cdr llist)))
(case x
[(#!optional)
- (unless rvar (set! rvar (macro-alias 'tmp se)))
+ (unless rvar (set! rvar (macro-alias 'rest se)))
(if (eq? mode 0)
(loop 1 req '() '() r)
(err "`#!optional' argument marker in wrong context") ) ]
@@ -417,7 +417,7 @@
(err "invalid syntax of `#!rest' argument") )
(err "`#!rest' argument marker in wrong context") ) ]
[(#!key)
- (if (not rvar) (set! rvar (macro-alias 'tmp se)))
+ (if (not rvar) (set! rvar (macro-alias 'rest se)))
(if (fx<= mode 2)
(loop 3 req opt '() r)
(err "`#!key' argument marker in wrong context") ) ]
Trap