Author: iratqq
Date: Tue Feb 17 00:02:41 2009
New Revision: 5858
Modified:
trunk/scm/fileio.scm
Log:
* scm/fileio.scm (close-file-port):
- New function.
Modified: trunk/scm/fileio.scm
==============================================================================
--- trunk/scm/fileio.scm (original)
+++ trunk/scm/fileio.scm Tue Feb 17 00:02:41 2009
@@ -58,6 +58,11 @@
(define (open-file-port fd)
(make-file-port fd file-bufsiz '()))
+(define (close-file-port port)
+ (inbuf! port '())
+ (file-close (fd? port))
+ (fd! port #f))
+
(define (call-with-open-file-port fd thunk)
(and (< 0 fd)
(let ((ret (thunk (open-file-port fd))))
