From 4a9a042906008441f2f16c8195e90aef83b45147 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 1 Feb 2025 07:36:40 +0200 Subject: [PATCH] Remove some unused debug logging --- retropikzel/r7rs-pffi/sagittarius.scm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/retropikzel/r7rs-pffi/sagittarius.scm b/retropikzel/r7rs-pffi/sagittarius.scm index 8427077..7b2adf3 100644 --- a/retropikzel/r7rs-pffi/sagittarius.scm +++ b/retropikzel/r7rs-pffi/sagittarius.scm @@ -147,11 +147,7 @@ ((equal? type 'uint32) (pointer-ref-c-uint32_t pointer offset)) ((equal? type 'int64) (pointer-ref-c-int64_t pointer offset)) ((equal? type 'uint64) (pointer-ref-c-uint64_t pointer offset)) - ((equal? type 'char) - (display "HERE: ") - (write pointer) - (newline) - (integer->char (pointer-ref-c-char pointer offset))) + ((equal? type 'char) (integer->char (pointer-ref-c-char pointer offset))) ((equal? type 'short) (pointer-ref-c-short pointer offset)) ((equal? type 'unsigned-short) (pointer-ref-c-unsigned-short pointer offset)) ((equal? type 'int) (pointer-ref-c-int pointer offset))