From dc391c03d017492c7e1043c63deb6fabb07dcad7 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 19 Apr 2025 08:26:05 +0300 Subject: [PATCH] Remove some debug logging --- retropikzel/pffi/shared/struct.scm | 7 ------- 1 file changed, 7 deletions(-) diff --git a/retropikzel/pffi/shared/struct.scm b/retropikzel/pffi/shared/struct.scm index 01938a5..2de0ebd 100644 --- a/retropikzel/pffi/shared/struct.scm +++ b/retropikzel/pffi/shared/struct.scm @@ -30,9 +30,6 @@ (let* ((member-type (cadr struct-member)) (member-name (car struct-member)) (member-size (pffi-size-of member-type))) - (display "HERE: ") - (write member-size) - (newline) (pffi-pointer-set! pointer member-type offset @@ -114,10 +111,6 @@ (error "Struct has no such member" (list struct member-name))) (let ((type (car (cdr (assoc member-name (pffi-struct-members struct))))) (offset (car (cdr (cdr (assoc member-name (pffi-struct-members struct))))))) - (map display (list "type: " type - ", offset: " offset - ", value: " (pffi-pointer-get (pffi-struct-pointer struct) type offset) - #\newline)) (pffi-pointer-get (pffi-struct-pointer struct) type offset))) (define (pffi-struct-set! struct member-name value)