summaryrefslogtreecommitdiffstats
path: root/withfile.scm
diff options
context:
space:
mode:
Diffstat (limited to 'withfile.scm')
-rw-r--r--withfile.scm34
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))))))