From c0c04fb2fc0c823ca5266e184d49217ff82b4d8a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 24 Jan 2007 02:34:38 +0000 Subject: [PATCH] make derived-from-... name a symbol in a class record svn: r5443 --- collects/mzlib/private/class-internal.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/class-internal.ss b/collects/mzlib/private/class-internal.ss index 11e36935ce..634d957f59 100644 --- a/collects/mzlib/private/class-internal.ss +++ b/collects/mzlib/private/class-internal.ss @@ -1718,7 +1718,7 @@ (and s (not (eq? super object%)) (if (symbol? s) - (format "derived-from-~a" s) + (string->symbol (format "derived-from-~a" s)) s))))] ;; Combine method lists [public-names (append pubment-names public-final-names public-normal-names)]