From 53aa8b5d59795d8f07bf60a0da46e4d7129def81 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sun, 20 Sep 2009 14:41:17 -0700 Subject: [PATCH] Move transcript off the property list. --- src/runtime/port.scm | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/src/runtime/port.scm b/src/runtime/port.scm index e04c6b600..15dbbd348 100644 --- a/src/runtime/port.scm +++ b/src/runtime/port.scm @@ -389,7 +389,8 @@ USA. (%thread-mutex (make-thread-mutex)) (unread? #f) (previous #f) - (properties '())) + (properties '()) + (transcript #f)) (define (make-port type state) (guarantee-port-type type 'MAKE-PORT) @@ -567,14 +568,6 @@ USA. (guarantee-symbol name 'PORT/REMOVE-PROPERTY!) (set-port/properties! port (del-assq! name (port/properties port)))) -(define (port/transcript port) - (port/get-property port 'TRANSCRIPT #f)) - -(define (set-port/transcript! port tport) - (if tport - (port/set-property! port 'TRANSCRIPT tport) - (port/remove-property! port 'TRANSCRIPT))) - (define (transcribe-char char port) (let ((tport (port/transcript port))) (if tport -- 2.25.1