No longer need to use `set-type-object-description!'.

diff --git a/v7/src/compiler/base/object.scm b/v7/src/compiler/base/object.scm
index 997098c1e48a9df702a7f9af99dd7a44a8fe068e..45802b101f791070bc4e7505ee7af491414c8222 100644 (file)
--- a/v7/src/compiler/base/object.scm
+++ b/v7/src/compiler/base/object.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/object.scm,v 4.5 1988/12/13 13:02:30 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/object.scm,v 4.6 1988/12/16 13:24:22 cph Rel $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -74,7 +74,7 @@ MIT in each case. |#
        (if parent
            (vector-tag-unparser parent)
            (error "Missing unparser" tag)))))
-\f
+
 (define (vector-tag-put! tag key value)
   (let ((entry (assq key (vector-tag-method-alist tag))))
     (if entry
@@ -145,12 +145,6 @@ MIT in each case. |#
        (else
         (error "Not a tagged vector" object))))
 
-(define (type-object-description type-object)
-  (2d-get type-object type-object-description))
-
-(define (set-type-object-description! type-object description)
-  (2d-put! type-object type-object-description description))
-\f
 (define (standard-unparser name unparser)
   (let ((name (string-append "LIAR " name)))    (if unparser
        (unparser/standard-method name unparser)