From fa0fbd13f3ecf8d5028e847e57950330a4c754ea Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 1 May 1989 21:11:34 +0000 Subject: [PATCH] Associate new operation `object-description' with object tags so that inspection tools understand how to examine class-system instances. --- v7/src/edwin/clscon.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/v7/src/edwin/clscon.scm b/v7/src/edwin/clscon.scm index b2ad98410..a27664459 100644 --- 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))) -- 2.25.1