[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, wip-rtl-cps, updated. v2.1.0-186-g9123
From: |
Noah Lavine |
Subject: |
[Guile-commits] GNU Guile branch, wip-rtl-cps, updated. v2.1.0-186-g9123c9c |
Date: |
Wed, 20 Feb 2013 16:14: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".
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, wip-rtl-cps, updated. v2.1.0-186-g9123c9c,
Noah Lavine <=