[Top][All Lists]

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

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

From: Noah Lavine
Subject: [Guile-commits] GNU Guile branch, wip-rtl-cps, updated. v2.1.0-185-g2463a0c
Date: Wed, 20 Feb 2013 16:08:35 +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-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)

GNU Guile

reply via email to

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