X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fforeign.scm;h=9b55633accaf17ad17cdd39077f3cf93896032e9;hp=94aab7c8fe7c7c979c68877b00c24cef922d7e64;hb=5d5dfa18d1acb2c3fa05df26b285ff430c9aff89;hpb=2532ec193354090d2bd34fb8380beb798b4e451e

diff --git a/irrlicht/foreign.scm b/irrlicht/foreign.scm
index 94aab7c..9b55633 100644
--- a/irrlicht/foreign.scm
+++ b/irrlicht/foreign.scm
@@ -22,7 +22,7 @@
   #:use-module (system foreign)
   #:use-module (irrlicht base)
   #:export (get-irrlicht-proc
-            null-pointer?))
+            null-object?))
 
 ;; We use a hash table to store foreign irrlicht methods related with their
 ;; classes
@@ -43,5 +43,5 @@
           (else
            proc))))
 
-(define (null-pointer? pointer)
-  (eq? pointer %null-pointer))
+(define (null-object? object)
+  (eq? (irr-pointer object) %null-pointer))