suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make derived-from-... name a symbol in a class record

Browse Source 
svn: r5443
This commit is contained in:
Matthew Flatt 2007-01-24 02:34:38 +00:00
parent 898e50625b
commit c0c04fb2fc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/private/class-internal.ss
View File

@ -1718,7 +1718,7 @@
(and s (and s
(not (eq? super object%)) (not (eq? super object%))
(if (symbol? s) (if (symbol? s)
(format "derived-from-~a" s) (string->symbol (format "derived-from-~a" s))
s))))] s))))]
;; Combine method lists ;; Combine method lists
[public-names (append pubment-names public-final-names public-normal-names)] [public-names (append pubment-names public-final-names public-normal-names)]