From 0252836baf9a01997e7fd813d3ff11d57feaaee7 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Tue, 7 May 2024 19:54:38 +0300
Subject: [PATCH] Better kawa support

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

diff --git a/retropikzel/pffi/v0.1.0/main.scm b/retropikzel/pffi/v0.1.0/main.scm
index e2c595b..104abd2 100644
--- a/retropikzel/pffi/v0.1.0/main.scm
+++ b/retropikzel/pffi/v0.1.0/main.scm
@@ -287,8 +287,8 @@
           (guile (pointer? object))
           (racket (cpointer? object))
           (stklos (cpointer? object))
-          (kawa (error "Not yet implemented: pffi-pointer?") ; TODO FIX
-                ))))
+          (kawa  (string=? (invoke (invoke object 'getClass) 'getName)
+                           "jdk.internal.foreign.NativeMemorySegmentImpl")))))
 
     ;> ### pffi-call
     ;>