diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:38 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:38 -0800 |
commit | 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 (patch) | |
tree | 1b23b8e8005328194e2fb4bf653806c85050933f /withfile.scm | |
parent | 5bea21e81ed516440e34e480f2c33ca41aa8c597 (diff) | |
download | slib-64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34.tar.gz slib-64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34.zip |
Import Upstream version 3a5upstream/3a5
Diffstat (limited to 'withfile.scm')
-rw-r--r-- | withfile.scm | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/withfile.scm b/withfile.scm index f9e7226..fd527f8 100644 --- a/withfile.scm +++ b/withfile.scm @@ -1,5 +1,5 @@ ; "withfile.scm", with-input-from-file and with-output-to-file for Scheme -; Copyright (c) 1992, 1993 Aubrey Jaffer +; Copyright (c) 1992, 1993, 2007 Aubrey Jaffer ; ;Permission to copy this software, to modify it, to redistribute it, ;to distribute modified versions, and to use it for any purpose is @@ -42,41 +42,41 @@ (lambda() (set! withfile:current-output oport)))) ;@ (define peek-char - (let ((peek-char peek-char)) + (let ((pk-chr peek-char)) (lambda opt - (peek-char (if (null? opt) withfile:current-input (car opt)))))) + (pk-chr (if (null? opt) withfile:current-input (car opt)))))) ;@ (define read-char - (let ((read-char read-char)) + (let ((rd-chr read-char)) (lambda opt - (read-char (if (null? opt) withfile:current-input (car opt)))))) + (rd-chr (if (null? opt) withfile:current-input (car opt)))))) ;@ (define read - (let ((read read)) + (let ((rd read)) (lambda opt - (read (if (null? opt) withfile:current-input (car opt)))))) + (rd (if (null? opt) withfile:current-input (car opt)))))) ;@ (define write-char - (let ((write-char write-char)) + (let ((wrt-chr write-char)) (lambda (obj . opt) - (write-char obj (if (null? opt) withfile:current-output (car opt)))))) + (wrt-chr obj (if (null? opt) withfile:current-output (car opt)))))) ;@ (define write - (let ((write write)) + (let ((wrt write)) (lambda (obj . opt) - (write obj (if (null? opt) withfile:current-output (car opt)))))) + (wrt obj (if (null? opt) withfile:current-output (car opt)))))) ;@ (define display - (let ((display display)) + (let ((dspl display)) (lambda (obj . opt) - (display obj (if (null? opt) withfile:current-output (car opt)))))) + (dspl obj (if (null? opt) withfile:current-output (car opt)))))) ;@ (define newline - (let ((newline newline)) + (let ((nwln newline)) (lambda opt - (newline (if (null? opt) withfile:current-output (car opt)))))) + (nwln (if (null? opt) withfile:current-output (car opt)))))) ;@ (define force-output - (let ((force-output force-output)) + (let ((frc-otpt force-output)) (lambda opt - (force-output (if (null? opt) withfile:current-output (car opt)))))) + (frc-otpt (if (null? opt) withfile:current-output (car opt)))))) |