fixed missing arg to raise-type-error

2011-08-27 19:27:44 -06:00 · 2011-08-27 19:27:44 -06:00 · c13c22f0e4
commit c13c22f0e4
parent d5d28d3357
1 changed files with 1 additions and 1 deletions
--- a/collects/racket/vector.rkt
+++ b/collects/racket/vector.rkt
@ -231,7 +231,7 @@
 (define-syntax-rule (vm-mk name cmp)
  (define (name val vec)
    (unless (vector? vec)
-      (raise-type-error 'name "vector" 1 vec))
+      (raise-type-error 'name "vector" 1 val vec))
    (let ([sz (unsafe-vector-length vec)])
      (let loop ([k 0])
        (cond [(= k sz) #f]