~ 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