[Guile-commits] GNU Guile branch, wip-wingo-elisp-badness, updated. release_1-9-4-113-g5ca3b70

[Daniel Kraft]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=5ca3b7083c02b498ca31731e49d51f7a3583a349

The branch, wip-wingo-elisp-badness has been updated
       via  5ca3b7083c02b498ca31731e49d51f7a3583a349 (commit)
      from  87dd448006674daf10256d1789230129da345a09 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 5ca3b7083c02b498ca31731e49d51f7a3583a349
Author: Daniel Kraft <address@hidden>
Date:   Sat Nov 14 16:04:28 2009 +0100

    Fix lambda-case problem with elisp.
    
    * module/language/elisp/compile-tree-il.scm: Build correct symbols.

-----------------------------------------------------------------------

Summary of changes:
 module/language/elisp/compile-tree-il.scm |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/module/language/elisp/compile-tree-il.scm 
b/module/language/elisp/compile-tree-il.scm
index caa0a30..5c9c05f 100644
--- a/module/language/elisp/compile-tree-il.scm
+++ b/module/language/elisp/compile-tree-il.scm
@@ -452,7 +452,12 @@
               (lambda ()
                 (make-lambda loc '()
                  (make-lambda-case
-                  #f required #f rest-name #f '() (append required-sym (list 
rest-sym))
+                  #f required #f
+                  (if have-real-rest rest-name #f)
+                  #f '()
+                  (if have-real-rest
+                    (append required-sym (list rest-sym))
+                    required-sym)
                   #f
                   (let* ((init-req (map (lambda (name-sym)
                                           (make-lexical-ref loc (car name-sym)


hooks/post-receive
-- 
GNU Guile