[Guile-commits] GNU Guile branch, wip-rtl-cps, updated. v2.1.0-185-g2463a0c

[Noah Lavine]

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=2463a0c94028fa573f8b7be8b21827b54f5ba191

The branch, wip-rtl-cps has been updated
  discards  898799b786dc75d18f23a0fbc0f512ea2b9076ed (commit)
       via  2463a0c94028fa573f8b7be8b21827b54f5ba191 (commit)

This update added new revisions after undoing existing revisions.  That is
to say, the old revision is not a strict subset of the new revision.  This
situation occurs when you --force push a change and generate a repository
containing something like this:

 * -- * -- B -- O -- O -- O (898799b786dc75d18f23a0fbc0f512ea2b9076ed)
            \
             N -- N -- N (2463a0c94028fa573f8b7be8b21827b54f5ba191)

When this happens we assume that you've already had alert emails for all
of the O revisions, and so we here report only the revisions in the N
branch from the common base, B.

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 2463a0c94028fa573f8b7be8b21827b54f5ba191
Author: Noah Lavine <address@hidden>
Date:   Tue Feb 19 23:43:47 2013 -0500

    Add CPS Printer
    
    * module/language/cps.scm: add CPS printer, using unparse-cps.

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

Summary of changes:
 module/language/cps.scm |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/module/language/cps.scm b/module/language/cps.scm
index 6a4dfad..f5f4e54 100644
--- a/module/language/cps.scm
+++ b/module/language/cps.scm
@@ -191,7 +191,9 @@
 (define (unparse-cps cps)
   (match cps
     (($ <letval> names vals body)
-     (list 'letval names vals (unparse-cps body)))
+     (list 'letval names
+           (map unparse-cps vals)
+           (unparse-cps body)))
     (($ <const> value)
      (list 'const value))
     (($ <var> value)


hooks/post-receive
-- 
GNU Guile