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

fix printinf of `(class->interface object%)'

Browse Source
This commit is contained in:
Matthew Flatt 2012-12-23 06:42:36 -07:00
parent 27a1121869
commit 0e2a917bda
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/racket/private/class-internal.rkt
View File

@ -3760,7 +3760,7 @@ An example
(make-struct-type name type 0 0 #f props insp)) (make-struct-type name type 0 0 #f props insp))
make-) make-)
(define object<%> ((make-naming-constructor struct:interface 'interface:object% "interface") (define object<%> ((make-naming-constructor struct:interface 'interface:object% #f)
'object% null #f null (make-immutable-hash) #f null)) 'object% null #f null (make-immutable-hash) #f null))
(setup-all-implemented! object<%>) (setup-all-implemented! object<%>)
(define object% ((make-naming-constructor struct:class 'object% "class") (define object% ((make-naming-constructor struct:class 'object% "class")