First order checks.

svn: r18233
2010-02-20 21:34:57 +00:00 · 2010-02-20 21:34:57 +00:00 · a0fdeff509
commit a0fdeff509
parent a4d6252d16
1 changed files with 3 additions and 0 deletions
--- a/collects/scheme/private/class-internal.ss
+++ b/collects/scheme/private/class-internal.ss
@ -2520,6 +2520,9 @@
      (for ([m (class/c-methods ctc)])
        (unless (hash-ref method-ht m #f)
          (failed "no public method ~a" m)))
+      (for ([m (class/c-inherits ctc)])
+        (unless (hash-ref method-ht m #f)
+          (failed "no public method ~a" m)))
      (for ([m (class/c-overrides ctc)])
        (let ([index (hash-ref method-ht m #f)])
          (unless index