Fixing Racket uint8-ref/set!

2025-07-23 20:16:14 +03:00 · 2025-07-23 20:16:14 +03:00 · 2e2f55c666
parent be5529f8a4
commit 2e2f55c666
1 changed files with 1 additions and 1 deletions
--- a/foreign/c/c-bytevectors.scm
+++ b/foreign/c/c-bytevectors.scm
@ -455,7 +455,7 @@

 (define (native-endianness)
  (cond-expand (little-endian 'little)
-               (racket 'little) ;; FIXME
+               (racket (if (system-big-endian?) 'big 'little))
               (else 'big)))

 ;;; Already defined by (scheme base):