Fixing Racket uint8-ref/set!
This commit is contained in:
parent
be5529f8a4
commit
2e2f55c666
|
|
@ -455,7 +455,7 @@
|
||||||
|
|
||||||
(define (native-endianness)
|
(define (native-endianness)
|
||||||
(cond-expand (little-endian 'little)
|
(cond-expand (little-endian 'little)
|
||||||
(racket 'little) ;; FIXME
|
(racket (if (system-big-endian?) 'big 'little))
|
||||||
(else 'big)))
|
(else 'big)))
|
||||||
|
|
||||||
;;; Already defined by (scheme base):
|
;;; Already defined by (scheme base):
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue