Fix handling of wrong size vectors.

Add tests.
Fixes PR9885.

svn: r12334

collects/scheme/match/compiler.ss

@@ -108,7 +108,8 @@
                           body)]))))])])
        #`[(vector? #,x)
           (case (vector-length #,x)
-            clauses ...)])]
+            clauses ...
+            [else (#,esc)])])]
     ;; it's a structure
     [(box? k)
      ;; all the rows are structures with the same predicate

collects/tests/match/examples.ss

@@ -571,6 +571,11 @@
                          [(or (and x 2) (and x 3) (and x 4)) 3]
                          [_ (values 4 5)])])
            (list x y)))
+   
+   (comp 'bad
+         (match #(1) 
+           [(vector a b) a]
+           [else 'bad]))
 
 
    ))