From e6d1bf2fa51cf9fb05d68bb79129f047273f4712 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Fri, 23 Aug 2024 09:31:11 +0300 Subject: [PATCH] Remove unused code from Racket version --- retropikzel/r7rs-pffi/version/racket.scm | 1 - 1 file changed, 1 deletion(-) diff --git a/retropikzel/r7rs-pffi/version/racket.scm b/retropikzel/r7rs-pffi/version/racket.scm index be5e552..74058a4 100644 --- a/retropikzel/r7rs-pffi/version/racket.scm +++ b/retropikzel/r7rs-pffi/version/racket.scm @@ -107,7 +107,6 @@ (cond ((equal? type 'string) (ptr-set! pointer (pffi-type->native-type type) 'abs offset (pffi-string->pointer value))) - ;((equal? type 'pointer) (ptr-set! pointer _intptr offset (cast value _pointer _intptr))) (else (ptr-set! pointer (pffi-type->native-type type) 'abs offset value)))))