From 0e2a917bdaf3e81f2d04581bf4314e00273ed113 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 23 Dec 2012 06:42:36 -0700 Subject: [PATCH] fix printinf of `(class->interface object%)' --- collects/racket/private/class-internal.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/private/class-internal.rkt b/collects/racket/private/class-internal.rkt index 5903c53b89..674895d57c 100644 --- a/collects/racket/private/class-internal.rkt +++ b/collects/racket/private/class-internal.rkt @@ -3760,7 +3760,7 @@ An example (make-struct-type name type 0 0 #f props insp)) 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)) (setup-all-implemented! object<%>) (define object% ((make-naming-constructor struct:class 'object% "class")