From a9ae34110595f4d6bf50648e7d5caaa1ea4ff785 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 21 Jan 2017 20:58:49 -0700
Subject: [PATCH] in-bytes: use `unsafe-bytes-ref`

In the same way that `in-vector` uses `unsafe-vector-ref`,
make `in-bytes` expand to a use of `unsafe-bytes-ref`.
---
 racket/collects/racket/private/for.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/racket/collects/racket/private/for.rkt b/racket/collects/racket/private/for.rkt
index 56a311031e..7cb803f8fd 100644
--- a/racket/collects/racket/private/for.rkt
+++ b/racket/collects/racket/private/for.rkt
@@ -1000,7 +1000,7 @@
     (make-in-vector-like 'in-string
                          "string"
                          #'string?
-                         #'string-length
+                         #'unsafe-string-length
                          #'in-string
                          #'string-ref))
 
@@ -1014,9 +1014,9 @@
     (make-in-vector-like 'in-bytes
                          "bytes"
                          #'bytes?
-                         #'bytes-length
+                         #'unsafe-bytes-length
                          #'in-bytes
-                         #'bytes-ref))
+                         #'unsafe-bytes-ref))
 
   (define-:vector-like-gen :flvector-gen unsafe-flvector-ref)
   ;; in-flvector is defined in racket/flonum