~ 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