[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.5-77-g1fa0fde

[Andy Wingo]

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=1fa0fde4955e39891142eb5d09bb195b37409937

The branch, stable-2.0 has been updated
       via  1fa0fde4955e39891142eb5d09bb195b37409937 (commit)
      from  1a4d765381904a3b8afeec1a6d0f746626a49967 (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 1fa0fde4955e39891142eb5d09bb195b37409937
Author: Andy Wingo <address@hidden>
Date:   Mon Mar 5 23:52:00 2012 +0100

    deprecate close-io-port
    
    * module/ice-9/r4rs.scm:
    * module/ice-9/deprecated.scm (close-io-port): Deprecate.

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

Summary of changes:
 module/ice-9/deprecated.scm |    5 +++++
 module/ice-9/r4rs.scm       |    4 +---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index ef2bc24..b631b5f 100644
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -879,3 +879,8 @@ it.")
       ((_ ((k v) ...) body0 body ...)
        #'(syntax-parameterize ((k v) ...)
            body0 body ...)))))
+
+(define (close-io-port port)
+  (issue-deprecation-warning
+   "`close-io-port' is deprecated.  Use `close-port' instead.")
+  (close-port port))
diff --git a/module/ice-9/r4rs.scm b/module/ice-9/r4rs.scm
index 072c8c6..bedfbde 100644
--- a/module/ice-9/r4rs.scm
+++ b/module/ice-9/r4rs.scm
@@ -1,7 +1,7 @@
 ;;;; r4rs.scm --- definitions needed for libguile to be R4RS compliant
 ;;;; Jim Blandy <address@hidden> --- October 1996
 
-;;;;   Copyright (C) 1996, 1997, 1998, 2000, 2001, 2006, 2010, 2011 Free 
Software Foundation, Inc.
+;;;;   Copyright (C) 1996, 1997, 1998, 2000, 2001, 2006, 2010, 2011, 2012 Free 
Software Foundation, Inc.
 ;;;; 
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -131,8 +131,6 @@ file with the given name already exists, the effect is 
unspecified."
   "Open file with name STR for both input and output."
   (open-file str OPEN_BOTH))
 
-(define close-io-port close-port)
-
 (define (call-with-input-file str proc)
   "PROC should be a procedure of one argument, and STR should be a
 string naming a file.  The file must


hooks/post-receive
-- 
GNU Guile