Improve pffi-pointer-null

retropikzel/pffi/shared/main.scm

@@ -6,7 +6,7 @@
          '(import (chicken foreign)
                   (chicken memory))
          #t))))
-  (ypsilon
+  #;(ypsilon
     (define-syntax pffi-init
       (lambda (x)
         (syntax-case x ()

retropikzel/pffi/ypsilon.scm

@@ -44,10 +44,9 @@
   (lambda (pointer)
     (c-free pointer)))
 
-; FIXME I dont know where to else get null :D
 (define pffi-pointer-null
   (lambda ()
-    (c-malloc 999999999999999999999999999999999999999999999999999999999999)))
+    0))
 
 (define pffi-pointer-null?
   (lambda (pointer)

test.scm

@@ -3,7 +3,9 @@
         (scheme char)
         (scheme file)
         (scheme process-context)
-        (retropikzel pffi))
+        (retropikzel pffi)
+        (ypsilon c-ffi)
+        )
 
 (define header-count 1)