mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

use #nil as default for elisp rest parameters

Browse source 
* module/langauge/elisp/compile-tree-il.scm (compile-lambda): Bind the
  rest parameter to `#nil' instead of `()' by default.
This commit is contained in:
BT Templeton 2012-03-05 18:10:29 -05:00
parent 5ddd9645c9
commit 663c5875f5
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
module/language/elisp/compile-tree-il.scm
View file

@ -326,7 +326,14 @@
(ensure-globals!
loc
dynamic-ids
(let* ((tree-il (compile-expr `(progn ,@forms)))
(let* ((tree-il
(compile-expr
(if rest-id
`(let ((,rest-id (if ,rest-id
,rest-id
nil)))
,@forms)
`(progn ,@forms))))
(full-body
(if (null? dynamic)
tree-il