Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing Racket uint8-ref/set!

This commit is contained in:
retropikzel 2025-07-23 19:38:32 +03:00
parent eb68a3d2cd
commit 5d151956d5
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
foreign/c/c-bytevectors.scm
View File

@ -453,13 +453,9 @@
((_ little) ((_ little)
(quote little)))) (quote little))))
(cond-expand (define (native-endianness)
(little-endian (cond-expand (little-endian 'little)
(define (native-endianness) (else 'big)))
'little))
(else
(define (native-endianness)
'big)))
;;; Already defined by (scheme base): ;;; Already defined by (scheme base):
;;; ;;;