From 8466d8cfa486fb30d1755c4261b781135083787b Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:29 -0800
Subject: Import Upstream version 3a1

---
 withfile.scm | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'withfile.scm')

diff --git a/withfile.scm b/withfile.scm
index 43e9300..f9e7226 100644
--- a/withfile.scm
+++ b/withfile.scm
@@ -8,7 +8,7 @@
 ;1.  Any copy made of this software must include this copyright notice
 ;in full.
 ;
-;2.  I have made no warrantee or representation that the operation of
+;2.  I have made no warranty or representation that the operation of
 ;this software will be error-free, and I am under no obligation to
 ;provide any services, by way of maintenance, update, or otherwise.
 ;
@@ -21,10 +21,10 @@
 
 (define withfile:current-input (current-input-port))
 (define withfile:current-output (current-output-port))
-
+;@
 (define (current-input-port) withfile:current-input)
 (define (current-output-port) withfile:current-output)
-
+;@
 (define (with-input-from-file file thunk)
   (define oport withfile:current-input)
   (define port (open-input-file file))
@@ -32,50 +32,50 @@
 			   (set! withfile:current-input port))
 		(lambda() (let ((ans (thunk))) (close-input-port port) ans))
 		(lambda() (set! withfile:current-input oport))))
-
-(define (with-output-from-file file thunk)
+;@
+(define (with-output-to-file file thunk)
   (define oport withfile:current-output)
   (define port (open-output-file file))
   (dynamic-wind (lambda() (set! oport withfile:current-output)
 		          (set! withfile:current-output port))
 		(lambda() (let ((ans (thunk))) (close-output-port port) ans))
 		(lambda() (set! withfile:current-output oport))))
-
+;@
 (define peek-char
   (let ((peek-char peek-char))
     (lambda opt
       (peek-char (if (null? opt) withfile:current-input (car opt))))))
-
+;@
 (define read-char
   (let ((read-char read-char))
     (lambda opt
       (read-char (if (null? opt) withfile:current-input (car opt))))))
-
+;@
 (define read
   (let ((read read))
     (lambda opt
       (read (if (null? opt) withfile:current-input (car opt))))))
-
+;@
 (define write-char
   (let ((write-char write-char))
     (lambda (obj . opt)
       (write-char obj (if (null? opt) withfile:current-output (car opt))))))
-
+;@
 (define write
   (let ((write write))
     (lambda (obj . opt)
       (write obj (if (null? opt) withfile:current-output (car opt))))))
-
+;@
 (define display
   (let ((display display))
     (lambda (obj . opt)
       (display obj (if (null? opt) withfile:current-output (car opt))))))
-
+;@
 (define newline
   (let ((newline newline))
     (lambda opt
       (newline (if (null? opt) withfile:current-output (car opt))))))
-
+;@
 (define force-output
   (let ((force-output force-output))
     (lambda opt
-- 
cgit v1.2.3