From 5145638ac5c7ca3dae1daf4b630b1e44d2a903b2 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Mon, 15 Mar 2010 09:19:50 +0000 Subject: [PATCH] Since we're handling initialization and the result of this wrapper is a real (sub)class, we need this to be #f. svn: r18544 --- collects/scheme/private/class-internal.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scheme/private/class-internal.ss b/collects/scheme/private/class-internal.ss index 59c3f988d2..ce2618a2ab 100644 --- a/collects/scheme/private/class-internal.ss +++ b/collects/scheme/private/class-internal.ss @@ -2680,7 +2680,7 @@ (class-orig-cls cls) #f #f ; serializer is never set - (class-no-super-init? cls))] + #f)] [obj-name (if name (string->symbol (format "object:~a" name)) 'object)])