From 6722b7a71e234ab3d41e936ab8605f1ef5e456c8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jens=20Axel=20S=C3=B8gaard?= <jensaxel@soegaard.net>
Date: Thu, 27 Mar 2014 15:54:44 +0100
Subject: [PATCH] Fix of PR 14413

Improved type per Ryans suggestion.
---
 racket/collects/data/bit-vector.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/collects/data/bit-vector.rkt b/racket/collects/data/bit-vector.rkt
index 675a381e07..0f90c0a143 100644
--- a/racket/collects/data/bit-vector.rkt
+++ b/racket/collects/data/bit-vector.rkt
@@ -220,7 +220,7 @@
   (-> bit-vector? any)]
  (rename bit-vector-copy*
          bit-vector-copy
-         (-> bit-vector? bit-vector?))
+         (->* [bit-vector?] [exact-nonnegative-integer? exact-nonnegative-integer?] bit-vector?))
  [bit-vector->list
   (-> bit-vector? (listof boolean?))]
  [list->bit-vector