summaryrefslogtreecommitdiffstats
path: root/trnscrpt.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:38 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:38 -0800
commit64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 (patch)
tree1b23b8e8005328194e2fb4bf653806c85050933f /trnscrpt.scm
parent5bea21e81ed516440e34e480f2c33ca41aa8c597 (diff)
downloadslib-64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34.tar.gz
slib-64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34.zip
Import Upstream version 3a5upstream/3a5
Diffstat (limited to 'trnscrpt.scm')
-rw-r--r--trnscrpt.scm40
1 files changed, 20 insertions, 20 deletions
diff --git a/trnscrpt.scm b/trnscrpt.scm
index aaec7cb..d801621 100644
--- a/trnscrpt.scm
+++ b/trnscrpt.scm
@@ -1,5 +1,5 @@
; "trnscrpt.scm", transcript functions for Scheme.
-; Copyright (c) 1992, 1993, 1995 Aubrey Jaffer
+; Copyright (c) 1992, 1993, 1995, 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
@@ -28,49 +28,49 @@
(set! transcript:port #f))
;@
(define read-char
- (let ((read-char read-char) (write-char write-char))
+ (let ((rd-chr read-char) (wrt-chr write-char))
(lambda opt
- (let ((ans (apply read-char opt)))
+ (let ((ans (apply rd-chr opt)))
(cond ((eof-object? ans))
((output-port? transcript:port)
- (write-char ans transcript:port)))
+ (wrt-chr ans transcript:port)))
ans))))
;@
(define read
- (let ((read read) (write write) (newline newline))
+ (let ((rd read) (wrt write) (nwln newline))
(lambda opt
- (let ((ans (apply read opt)))
+ (let ((ans (apply rd opt)))
(cond ((eof-object? ans))
((output-port? transcript:port)
- (write ans transcript:port)
+ (wrt ans transcript:port)
(if (eqv? #\newline (apply peek-char opt))
- (newline transcript:port))))
+ (nwln transcript:port))))
ans))))
;@
(define write-char
- (let ((write-char write-char))
+ (let ((wrt-chr write-char))
(lambda (obj . opt)
- (apply write-char obj opt)
+ (apply wrt-chr obj opt)
(if (output-port? transcript:port)
- (write-char obj transcript:port)))))
+ (wrt-chr obj transcript:port)))))
;@
(define write
- (let ((write write))
+ (let ((wrt write))
(lambda (obj . opt)
- (apply write obj opt)
+ (apply wrt obj opt)
(if (output-port? transcript:port)
- (write obj transcript:port)))))
+ (wrt obj transcript:port)))))
;@
(define display
- (let ((display display))
+ (let ((dspl display))
(lambda (obj . opt)
- (apply display obj opt)
+ (apply dspl obj opt)
(if (output-port? transcript:port)
- (display obj transcript:port)))))
+ (dspl obj transcript:port)))))
;@
(define newline
- (let ((newline newline))
+ (let ((nwln newline))
(lambda opt
- (apply newline opt)
+ (apply nwln opt)
(if (output-port? transcript:port)
- (newline transcript:port)))))
+ (nwln transcript:port)))))