[Guile-commits] GNU Guile branch, wip-rtl-cps, updated. v2.1.0-186-g9123c9c

[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=9123c9ce43c29a1a8beee7709e251541b7a9188b

The branch, wip-rtl-cps has been updated
       via  9123c9ce43c29a1a8beee7709e251541b7a9188b (commit)
      from  2463a0c94028fa573f8b7be8b21827b54f5ba191 (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 9123c9ce43c29a1a8beee7709e251541b7a9188b
Author: Noah Lavine <address@hidden>
Date:   Wed Feb 20 11:14:06 2013 -0500

    Bugfix in CPS Printer
    
    * module/language/cps.scm: CPS printer will now work.

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

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

diff --git a/module/language/cps.scm b/module/language/cps.scm
index f5f4e54..081e6ee 100644
--- a/module/language/cps.scm
+++ b/module/language/cps.scm
@@ -90,6 +90,9 @@
 ;; symbols refer to, since they are constant values, and "variable" for
 ;; the variable objects, since they vary.
 
+(define (print-cps exp port)
+  (format port "#<cps ~S>" (unparse-cps exp)))
+
 (define-type (<cps> #:printer print-cps)
   ;; <letval> values can be anything in the <cps-data> declaration
   ;; below. I think it's an open question whether we need letvals - we
@@ -219,6 +222,3 @@
     (($ <if> test consequent alternate)
      (list 'if test consequent alternate))
     (_ (error "couldn't unparse CPS" cps))))
-
-(define (print-cps exp port)
-  (format port "#<cps ~S>" (unparse-cps exp)))


hooks/post-receive
-- 
GNU Guile