[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, wip-wingo-elisp-badness, updated. rele

From: Daniel Kraft
Subject: [Guile-commits] GNU Guile branch, wip-wingo-elisp-badness, updated. release_1-9-4-113-g5ca3b70
Date: Sat, 14 Nov 2009 15:03:32 +0000

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".

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 
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 '()
-                  #f required #f rest-name #f '() (append required-sym (list 
+                  #f required #f
+                  (if have-real-rest rest-name #f)
+                  #f '()
+                  (if have-real-rest
+                    (append required-sym (list rest-sym))
+                    required-sym)
                   (let* ((init-req (map (lambda (name-sym)
                                           (make-lexical-ref loc (car name-sym)

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]