From 663c5875f516ae9b36c6100dddd328de4c115147 Mon Sep 17 00:00:00 2001
From: BT Templeton <bpt@hcoop.net>
Date: Mon, 5 Mar 2012 18:10:29 -0500
Subject: [PATCH] use #nil as default for elisp rest parameters

* module/langauge/elisp/compile-tree-il.scm (compile-lambda): Bind the
  rest parameter to `#nil' instead of `()' by default.
---
 module/language/elisp/compile-tree-il.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm
index 293495495..1a4d00faa 100644
--- a/module/language/elisp/compile-tree-il.scm
+++ b/module/language/elisp/compile-tree-il.scm
@@ -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