From 065666f343dc0d95338107cec8517922939f8d9e Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 26 Jul 2025 18:43:05 +0300
Subject: [PATCH] Fixing Kawa

---
 foreign/c/pointer.scm | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index 4d767e0..f99bb55 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -83,7 +83,8 @@
 
 (define string->c-utf8
   (lambda (string-var)
-    (bytevector->c-bytevector (string->utf8 (string-append string-var (string #\null))))))
+    (bytevector->c-bytevector
+      (string->utf8 (string-append string-var (string #\null))))))
 
 (cond-expand
   (chicken #t) ; FIXME
@@ -103,13 +104,6 @@
   (gauche (define c-null? pointer-null?))
   (else (define c-null?
           (lambda (pointer)
-            (display "HERE123: ")
-            (write pointer)
-            (newline)
-            (display (if (c-bytevector? pointer)
-              (= (c-memset-pointer->address pointer 0 0) 0)
-              #f))
-            (newline)
             (if (c-bytevector? pointer)
               (= (c-memset-pointer->address pointer 0 0) 0)
               #f)))))