[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-292-g4b76a
From: |
Chris K. Jester-Young |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-292-g4b76acf |
Date: |
Fri, 05 Apr 2013 17:31:59 +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=4b76acfa38d6939241e0b4cfdbbc46e8aac13e1a
The branch, stable-2.0 has been updated
via 4b76acfa38d6939241e0b4cfdbbc46e8aac13e1a (commit)
from 4a1cdc9d5d643d05fa7a18febc7c12070f3ef6d9 (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 4b76acfa38d6939241e0b4cfdbbc46e8aac13e1a
Author: Chris K. Jester-Young <address@hidden>
Date: Fri Apr 5 13:31:12 2013 -0400
Revert "Add record type printers for srfi-41 and srfi-45."
This reverts commit 4a1cdc9d5d643d05fa7a18febc7c12070f3ef6d9, which was
prematurely pushed.
-----------------------------------------------------------------------
Summary of changes:
module/srfi/srfi-41.scm | 23 +----------------------
module/srfi/srfi-45.scm | 8 +-------
2 files changed, 2 insertions(+), 29 deletions(-)
diff --git a/module/srfi/srfi-41.scm b/module/srfi/srfi-41.scm
index 243bd44..edf95d7 100644
--- a/module/srfi/srfi-41.scm
+++ b/module/srfi/srfi-41.scm
@@ -27,7 +27,6 @@
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-8)
#:use-module (srfi srfi-9)
- #:use-module (srfi srfi-9 gnu)
#:use-module (srfi srfi-26)
#:use-module (ice-9 match)
#:export (stream-null stream-cons stream? stream-null? stream-pair?
@@ -149,7 +148,7 @@
(define stream? stream-promise?)
-(define %stream-null (cons 'stream 'null))
+(define %stream-null '(stream . null))
(define stream-null (stream-eager %stream-null))
(define (stream-null? obj)
@@ -181,26 +180,6 @@
(define-syntax-rule (stream-lambda formals body0 body1 ...)
(lambda formals (stream-lazy (begin body0 body1 ...))))
-(set-record-type-printer! stream-promise
- (lambda (strm port)
- (display "#<stream" port)
- (let loop ((strm strm))
- (define value (stream-promise-val strm))
- (case (stream-value-tag value)
- ((eager)
- (let ((pare (stream-value-proc value)))
- (if (eq? pare %stream-null)
- (write-char #\> port)
- (let* ((kar (stream-kar pare))
- (kar-value (stream-promise-val kar)))
- (write-char #\space port)
- (case (stream-value-tag kar-value)
- ((eager) (write (stream-value-proc kar-value) port))
- ((lazy) (write-char #\? port)))
- (loop (stream-kdr pare))))))
- ((lazy)
- (display " ...>" port))))))
-
;;; Derived stream functions and macros: (streams derived)
(define-syntax-rule (define-stream (name . formal) body0 body1 ...)
diff --git a/module/srfi/srfi-45.scm b/module/srfi/srfi-45.scm
index ae08f9b..5194770 100644
--- a/module/srfi/srfi-45.scm
+++ b/module/srfi/srfi-45.scm
@@ -39,8 +39,7 @@
eager
promise?)
#:replace (delay force promise?)
- #:use-module (srfi srfi-9)
- #:use-module (srfi srfi-9 gnu))
+ #:use-module (srfi srfi-9))
(cond-expand-provide (current-module) '(srfi-45))
@@ -77,8 +76,3 @@
;; (*) These two lines re-fetch and check the original promise in case
;; the first line of the let* caused it to be forced. For an example
;; where this happens, see reentrancy test 3 below.
-
-(set-record-type-printer! promise
- (lambda (promise port)
- (define content (promise-val promise))
- (format port "#<~a ~s>" (value-tag content) (value-proc content))))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-292-g4b76acf,
Chris K. Jester-Young <=