Associate new operation `object-description' with object tags so that

inspection tools understand how to examine class-system instances.

diff --git a/v7/src/edwin/clscon.scm b/v7/src/edwin/clscon.scm
index b2ad9841030ed59e65399220c66c488b4b5f827b..a27664459069da1df7b267e67e41c56cfb9825dc 100644 (file)
--- a/v7/src/edwin/clscon.scm
+++ b/v7/src/edwin/clscon.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/clscon.scm,v 1.2 1989/04/28 22:48:29 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/clscon.scm,v 1.3 1989/05/01 21:11:34 cph Rel $
 ;;;
 ;;;    Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -72,6 +72,7 @@
               (unparser/set-tagged-vector-method!
                class
                (unparser/standard-method name))
+              (named-structure/set-tag-description! class object-description)
               class))))
       (if (not entry)
          (let ((class (make-class)))