diff options
author | Andy Wingo <wingo@pobox.com> | 2012-03-05 23:52:00 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-03-05 23:52:28 +0100 |
commit | 1fa0fde4955e39891142eb5d09bb195b37409937 (patch) | |
tree | ff17db8ad6b608a1abdb5fa0f88bdaa752e57bfa | |
parent | 1a4d765381904a3b8afeec1a6d0f746626a49967 (diff) | |
download | guile-1fa0fde4955e39891142eb5d09bb195b37409937.tar.gz |
deprecate close-io-port
* module/ice-9/r4rs.scm:
* module/ice-9/deprecated.scm (close-io-port): Deprecate.
-rw-r--r-- | module/ice-9/deprecated.scm | 5 | ||||
-rw-r--r-- | 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 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 |