Fixing Racket uint8-ref/set!

2025-07-23 19:38:32 +03:00 · 2025-07-23 19:38:32 +03:00 · 5d151956d5
parent eb68a3d2cd
commit 5d151956d5
1 changed files with 3 additions and 7 deletions
--- a/foreign/c/c-bytevectors.scm
+++ b/foreign/c/c-bytevectors.scm
@ -453,13 +453,9 @@
   ((_ little)
    (quote little))))

-(cond-expand
- (little-endian
-  (define (native-endianness)
-    'little))
- (else
-  (define (native-endianness)
-    'big)))
+(define (native-endianness)
+  (cond-expand (little-endian 'little)
+               (else 'big)))

 ;;; Already defined by (scheme base):
 ;;;