From 5d151956d5c68a973d472df730c9000978e72ff1 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Wed, 23 Jul 2025 19:38:32 +0300 Subject: [PATCH] Fixing Racket uint8-ref/set! --- foreign/c/c-bytevectors.scm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/foreign/c/c-bytevectors.scm b/foreign/c/c-bytevectors.scm index f3b553e..434ede9 100644 --- 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): ;;;