From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sun, 20 Sep 2009 21:41:17 +0000 (-0700)
Subject: Move transcript off the property list.
X-Git-Tag: 20100708-Gtk~327
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=53aa8b5d59795d8f07bf60a0da46e4d7129def81;p=mit-scheme.git

Move transcript off the property list.
---

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