Better kawa support

2024-05-07 19:54:38 +03:00 · 2024-05-07 19:54:38 +03:00 · 0252836baf
parent 6f118fb897
commit 0252836baf
1 changed files with 2 additions and 2 deletions
--- 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
    ;>