From c13c22f0e43f088a4e1cb9a5f8a20aa80c7fc2dc Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sat, 27 Aug 2011 19:27:44 -0600 Subject: [PATCH] fixed missing arg to raise-type-error --- collects/racket/vector.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/vector.rkt b/collects/racket/vector.rkt index 925748c886..e53e8e47e9 100644 --- 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]