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

cs: fix names of some byte-string primitives

Browse Source 
Closes #3441
This commit is contained in:
Matthew Flatt 2020-10-15 18:16:17 -06:00
parent 1aac750373
commit 9f5c0cbb07
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test-core/tests/racket/name.rktl
View File

@ -201,4 +201,10 @@
(datum->syntax #'here '(lambda args #f)))]) (datum->syntax #'here '(lambda args #f)))])
(object-name (make-keyword-procedure (no-name))))) (object-name (make-keyword-procedure (no-name)))))
;; Test some primitives that have different names compared to Chez Scheme
(test 'bytes? object-name bytes?)
(test 'bytes-ref object-name bytes-ref)
(test 'bytes-set! object-name bytes-set!)
(test 'bytes-length object-name bytes-length)
(report-errs) (report-errs)

12
racket/src/cs/rumble/bytes.ss
View File

@ -12,9 +12,9 @@
args) args)
(register-place-shared (apply #2%bytevector args))) (register-place-shared (apply #2%bytevector args)))
(define bytes? #2%bytevector?) (define (bytes? x) (#2%bytevector? x))
(define bytes-length #2%bytevector-length) (define (bytes-length bstr) (#2%bytevector-length bstr))
(define/who make-bytes (define/who make-bytes
(case-lambda (case-lambda
@ -42,11 +42,11 @@
lst) lst)
(u8-list->bytevector lst)) (u8-list->bytevector lst))
(define bytes->list #2%bytevector->u8-list) (define (bytes->list bstr) (#2%bytevector->u8-list bstr))
(define bytes-ref #2%bytevector-u8-ref) (define (bytes-ref bstr i) (#2%bytevector-u8-ref bstr i))
(define bytes-set! #2%bytevector-u8-set!) (define (bytes-set! bstr i b) (#2%bytevector-u8-set! bstr i b))
(define bytes->immutable-bytes #2%bytevector->immutable-bytevector) (define (bytes->immutable-bytes bstr) (#2%bytevector->immutable-bytevector bstr))
(define/who bytes-copy! (define/who bytes-copy!
(case-lambda (case-lambda