From 9f5c0cbb07646719a397b295e1b37d18e75b6f6b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 15 Oct 2020 18:16:17 -0600 Subject: [PATCH] cs: fix names of some byte-string primitives Closes #3441 --- pkgs/racket-test-core/tests/racket/name.rktl | 6 ++++++ racket/src/cs/rumble/bytes.ss | 12 ++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/name.rktl b/pkgs/racket-test-core/tests/racket/name.rktl index 17216e0ac0..5646d93afb 100644 --- a/pkgs/racket-test-core/tests/racket/name.rktl +++ b/pkgs/racket-test-core/tests/racket/name.rktl @@ -201,4 +201,10 @@ (datum->syntax #'here '(lambda args #f)))]) (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) diff --git a/racket/src/cs/rumble/bytes.ss b/racket/src/cs/rumble/bytes.ss index 10e1489a54..13d7f9eb90 100644 --- a/racket/src/cs/rumble/bytes.ss +++ b/racket/src/cs/rumble/bytes.ss @@ -12,9 +12,9 @@ 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 (case-lambda @@ -42,11 +42,11 @@ 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-set! #2%bytevector-u8-set!) -(define bytes->immutable-bytes #2%bytevector->immutable-bytevector) +(define (bytes-ref bstr i) (#2%bytevector-u8-ref bstr i)) +(define (bytes-set! bstr i b) (#2%bytevector-u8-set! bstr i b)) +(define (bytes->immutable-bytes bstr) (#2%bytevector->immutable-bytevector bstr)) (define/who bytes-copy! (case-lambda