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 · Jan 22, 2017 · a9ae341 · a9ae341
1 parent aead07b
commit a9ae341
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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