suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

in-bytes: use unsafe-bytes-ref

Browse Source 
In the same way that `in-vector` uses `unsafe-vector-ref`,
make `in-bytes` expand to a use of `unsafe-bytes-ref`.
This commit is contained in:
Matthew Flatt 2017-01-21 20:58:49 -07:00
parent aead07b5de
commit a9ae341105
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/racket/private/for.rkt
View File

@ -1000,7 +1000,7 @@
(make-in-vector-like 'in-string (make-in-vector-like 'in-string
"string" "string"
#'string? #'string?
#'string-length #'unsafe-string-length
#'in-string #'in-string
#'string-ref)) #'string-ref))
@ -1014,9 +1014,9 @@
(make-in-vector-like 'in-bytes (make-in-vector-like 'in-bytes
"bytes" "bytes"
#'bytes? #'bytes?
#'bytes-length #'unsafe-bytes-length
#'in-bytes #'in-bytes
#'bytes-ref)) #'unsafe-bytes-ref))
(define-:vector-like-gen :flvector-gen unsafe-flvector-ref) (define-:vector-like-gen :flvector-gen unsafe-flvector-ref)
;; in-flvector is defined in racket/flonum ;; in-flvector is defined in racket/flonum