fix `in-vector' error reporting

and also refrain from exporting some internal bindings
 frm `racket/base'

collects/racket/private/for.rkt

@@ -529,7 +529,7 @@
           [(v start stop) (in-vector-name v start stop 1)]
           [(v start stop step)
            (let-values (([v start stop step]
-                         (normalise-inputs in-vector-name type-name-str vector?-id vector-length-id
+                         (normalise-inputs 'in-vector-name type-name-str vector?-id vector-length-id
                                           v start stop step)))
              (make-do-sequence (lambda () (:vector-gen-id v start stop step))))]))]))
 

collects/racket/private/pre-base.rkt

@@ -135,7 +135,11 @@
                               procedure->method procedure-rename
                               chaperone-procedure impersonate-procedure)
              (all-from "reqprov.rkt")
-             (all-from "for.rkt")
+             (all-from-except "for.rkt"
+                              define-in-vector-like
+                              define-:vector-like-gen
+                              make-in-vector-like
+                              normalise-inputs)
              (all-from "kernstruct.rkt")
              #%top-interaction
 

collects/racket/private/vector-wraps.rkt

@@ -1,6 +1,7 @@
 #lang racket/base
 
 (require '#%flfxnum
+         "for.rkt"
          (for-syntax racket/base))
 
 (provide define-vector-wraps)