summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/ice-9/deprecated.scm5
-rw-r--r--module/ice-9/r4rs.scm4
2 files changed, 6 insertions, 3 deletions
diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index ef2bc2422..b631b5f42 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 072c8c6b4..bedfbdea7 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 <jimb@cyclic.com> --- 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