typo

svn: r5938
2007-04-14 06:36:21 +00:00 · 2007-04-14 06:36:21 +00:00 · c4bb0c48a9
commit c4bb0c48a9
parent c798f43dbb
1 changed files with 1 additions and 1 deletions
--- a/collects/swindle/tiny-clos.ss
+++ b/collects/swindle/tiny-clos.ss
@ -507,7 +507,7 @@
              [supers (if proc? (cons <primitive-procedure> supers) supers)]
              [this (parameterize ([*default-object-class* #f])
                      (make (if proc? <procedure-class> <primitive-class>)
-                            :name name :direct-supers (list super)))])
+                            :name name :direct-supers supers))])
         (hash-table-put! struct-to-class-table stype this)
         this)))))