From 8466d8cfa486fb30d1755c4261b781135083787b Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:29 -0800 Subject: Import Upstream version 3a1 --- trnscrpt.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'trnscrpt.scm') diff --git a/trnscrpt.scm b/trnscrpt.scm index 3f2c8a1..aaec7cb 100644 --- a/trnscrpt.scm +++ b/trnscrpt.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. ; @@ -18,15 +18,15 @@ ;each case. (define transcript:port #f) - +;@ (define (transcript-on filename) (set! transcript:port (open-output-file filename))) - +;@ (define (transcript-off) (if (output-port? transcript:port) (close-output-port transcript:port)) (set! transcript:port #f)) - +;@ (define read-char (let ((read-char read-char) (write-char write-char)) (lambda opt @@ -35,7 +35,7 @@ ((output-port? transcript:port) (write-char ans transcript:port))) ans)))) - +;@ (define read (let ((read read) (write write) (newline newline)) (lambda opt @@ -46,28 +46,28 @@ (if (eqv? #\newline (apply peek-char opt)) (newline transcript:port)))) ans)))) - +;@ (define write-char (let ((write-char write-char)) (lambda (obj . opt) (apply write-char obj opt) (if (output-port? transcript:port) (write-char obj transcript:port))))) - +;@ (define write (let ((write write)) (lambda (obj . opt) (apply write obj opt) (if (output-port? transcript:port) (write obj transcript:port))))) - +;@ (define display (let ((display display)) (lambda (obj . opt) (apply display obj opt) (if (output-port? transcript:port) (display obj transcript:port))))) - +;@ (define newline (let ((newline newline)) (lambda opt -- cgit v1.2.3