X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fforeign.scm;h=9b55633accaf17ad17cdd39077f3cf93896032e9;hb=e1e79af4472feb78b4ec672f768eb8fdd10670fc;hp=f6e203622f55db18eae8907fce38f3c26533c4dd;hpb=98052b04792129db97286fdd77ef3b0de8912286;p=guile-irrlicht.git

diff --git a/irrlicht/foreign.scm b/irrlicht/foreign.scm
index f6e2036..9b55633 100644
--- a/irrlicht/foreign.scm
+++ b/irrlicht/foreign.scm
@@ -19,8 +19,10 @@
 
 
 (define-module (irrlicht foreign)
+  #:use-module (system foreign)
   #:use-module (irrlicht base)
-  #:export (get-irrlicht-proc))
+  #:export (get-irrlicht-proc
+            null-object?))
 
 ;; We use a hash table to store foreign irrlicht methods related with their
 ;; classes
@@ -40,3 +42,6 @@
              new-proc))
           (else
            proc))))
+
+(define (null-object? object)
+  (eq? (irr-pointer object) %null-pointer))