From 1b6e67775afb3f8f9352610acfbdfdbba2fc5761 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 30 Dec 2005 00:56:41 +0000 Subject: [PATCH] svn: r1713 --- collects/swindle/tiny-clos.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/swindle/tiny-clos.ss b/collects/swindle/tiny-clos.ss index af8a8ed0cd..ca7a887aaf 100644 --- a/collects/swindle/tiny-clos.ss +++ b/collects/swindle/tiny-clos.ss @@ -1410,7 +1410,7 @@ ;; check valid supers, and always have an object class (cond [(not default) supers] ; check disabled - [(or (not supers) (null? supers)) (list (*default-object-class*))] + [(or (not supers) (null? supers)) (list default)] [(not (list? supers)) (error 'class "bad superclasses: ~e" supers)] [else (let ([c (find-if (lambda (c)