From e93faacec7f0dcebf8d2461c23c31c51a315957c Mon Sep 17 00:00:00 2001 From: retropikzel Date: Wed, 23 Jul 2025 08:43:46 +0300 Subject: [PATCH] Fixing Racket uint8-ref --- foreign/c/pointer.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm index 454724c..569c417 100644 --- a/foreign/c/pointer.scm +++ b/foreign/c/pointer.scm @@ -29,9 +29,7 @@ (else (define-c-procedure c-memset-pointer->address libc 'memset 'uint64 '(pointer uint8 int)))) ;(define-c-procedure c-memset-address libc 'memset 'pointer '(uint64 uint8 int)) ;(define-c-procedure c-printf libc 'printf 'int '(pointer pointer)) -(cond-expand - (racket (define-c-procedure c-malloc libc 'malloc 'pointer '(int))) - (else (define (c-malloc size) (malloc size 'raw)))) +(define-c-procedure c-malloc libc 'malloc 'pointer '(int)) (define-c-procedure c-strlen libc 'strlen 'int '(pointer)) (define make-c-bytevector