mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Revert "Add record type printers for srfi-41 and srfi-45."

Browse source 
This reverts commit 4a1cdc9d5d, which was
prematurely pushed.
This commit is contained in:
Chris K. Jester-Young 2013-04-05 13:31:12 -04:00
parent 4a1cdc9d5d
commit 4b76acfa38
2 changed files with 2 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/srfi/srfi-45.scm
View file

@ -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))))