mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

deprecate close-io-port

Browse source 
* module/ice-9/r4rs.scm:
* module/ice-9/deprecated.scm (close-io-port): Deprecate.
This commit is contained in:
Andy Wingo 2012-03-05 23:52:00 +01:00
parent 1a4d765381
commit 1fa0fde495
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/ice-9/deprecated.scm
View file

@ -879,3 +879,8 @@ it.")
((_ ((k v) ...) body0 body ...) ((_ ((k v) ...) body0 body ...)
#'(syntax-parameterize ((k v) ...) #'(syntax-parameterize ((k v) ...)
body0 body ...))))) body0 body ...)))))
(define (close-io-port port)
(issue-deprecation-warning
"`close-io-port' is deprecated. Use `close-port' instead.")
(close-port port))

4
module/ice-9/r4rs.scm
View file

@ -1,7 +1,7 @@
;;;; r4rs.scm --- definitions needed for libguile to be R4RS compliant ;;;; r4rs.scm --- definitions needed for libguile to be R4RS compliant
;;;; Jim Blandy <jimb@cyclic.com> --- October 1996 ;;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; 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 with name STR for both input and output."
(open-file str OPEN_BOTH)) (open-file str OPEN_BOTH))
(define close-io-port close-port)
(define (call-with-input-file str proc) (define (call-with-input-file str proc)
"PROC should be a procedure of one argument, and STR should be a "PROC should be a procedure of one argument, and STR should be a
string naming a file. The file must string naming a file. The file must