Move transcript off the property list.

diff --git a/src/runtime/port.scm b/src/runtime/port.scm
index e04c6b600cfc39592ca67b7ce8507d7f481e9836..15dbbd348ff1fad7f270ac59014b11b5a2363621 100644 (file)
--- 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