cs: fix names of some byte-string primitives

Closes #3441

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)

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