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

svn: r1713

Browse Source
This commit is contained in:
Eli Barzilay 2005-12-30 00:56:41 +00:00
parent 9da04afc19
commit 1b6e67775a
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/swindle/tiny-clos.ss
View File

@ -1410,7 +1410,7 @@
;; check valid supers, and always have an object class ;; check valid supers, and always have an object class
(cond (cond
[(not default) supers] ; check disabled [(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)] [(not (list? supers)) (error 'class "bad superclasses: ~e" supers)]
[else (let ([c (find-if [else (let ([c (find-if
(lambda (c) (lambda (c)