diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:29 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:29 -0800 |
commit | 8466d8cfa486fb30d1755c4261b781135083787b (patch) | |
tree | c8c12c67246f543c3cc4f64d1c07e003cb1d45ae /withfile.scm | |
parent | 87b82b5822ca54228cfa6df29be3ad9d4bc47d16 (diff) | |
download | slib-8466d8cfa486fb30d1755c4261b781135083787b.tar.gz slib-8466d8cfa486fb30d1755c4261b781135083787b.zip |
Import Upstream version 3a1upstream/3a1
Diffstat (limited to 'withfile.scm')
-rw-r--r-- | withfile.scm | 26 |
1 files changed, 13 insertions, 13 deletions
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 |