From 4d24c23a5cb92510506d9d72e7802d0f4e85ace6 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 15 Mar 2025 06:57:22 +0200
Subject: [PATCH] Move gauche to using shared pointer->string and
 string->pointer

---
 retropikzel/pffi/gauche.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/retropikzel/pffi/gauche.scm b/retropikzel/pffi/gauche.scm
index 9e840eb..08a8745 100644
--- a/retropikzel/pffi/gauche.scm
+++ b/retropikzel/pffi/gauche.scm
@@ -113,11 +113,11 @@
           ((equal? type 'void) (pointer-get-pointer pointer offset))
           ((equal? type 'pointer) (pointer-get-pointer pointer offset)))))
 
-(define pffi-string->pointer
+#;(define pffi-string->pointer
   (lambda (string-content)
     (string->pointer string-content)))
 
-(define pffi-pointer->string
+#;(define pffi-pointer->string
   (lambda (pointer)
     (pointer->string pointer)))