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 ;>