..

original commit: 576331e2b2e483c2a0eb0a57a695c5d5d302913f
2002-03-19 01:25:58 +00:00 · 2002-03-19 01:25:58 +00:00 · 772a33bc5b
commit 772a33bc5b
parent a940ff584c
1 changed files with 17 additions and 2 deletions
--- a/collects/framework/specs.ss
+++ b/collects/framework/specs.ss
@ -504,7 +504,8 @@
           false? any? 
           union symbols
           subclass?/c implementation?/c is-a?/c
-           listof)
+           listof vectorof
+	   mixin-contract make-mixin-contract/<%> make-mixin-contract/%)
  
  (define-syntax (name stx)
    (syntax-case stx ()
@ -570,4 +571,18 @@
          (lambda (v)
            (and (vector? v)
                 (andmap p (vector->list v))))))
-  )
+
+  (define mixin-contract
+    (class?
+     . ->d .
+     subclass?/c))
+
+  (define (make-mixin-contract/<%> <%>)
+    ((and/f class? (implementation?/c <%>))
+     . ->d .
+     subclass?/c))
+
+  (define (make-mixin-contract/% %)
+    ((and/f class? (subclass?/c %))
+     . ->d .
+     subclass?/c)))