fix `vector-append' error reporting

Closes PR 13151 Merge to v5.3.1
2012-10-09 20:14:11 -06:00 · 2012-10-09 20:14:11 -06:00 · a414b34b14
commit a414b34b14
parent 75008f14d7
1 changed files with 1 additions and 1 deletions
--- a/collects/racket/vector.rkt
+++ b/collects/racket/vector.rkt
@ -173,7 +173,7 @@
  (let* ([lens (for/list ([e (in-list vs)] [i (in-naturals)])
                 (if (vector? e)
                   (unsafe-vector-length e)
-                   (raise-argument-error 'vector-append "vector?" e i)))]
+                   (apply raise-argument-error 'vector-append "vector?" i vs)))]
         [new-v (make-vector (apply + lens))])
    (let loop ([start 0] [lens lens] [vs vs])
      (when (pair? lens)