X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fforeign.scm;h=94aab7c8fe7c7c979c68877b00c24cef922d7e64;hb=357f279e004c6257a160205835c06c283d317ef7;hp=aaac04ff08bf812382dbf8c407780f73c90fd503;hpb=09e9ed196aadab0f77e831c134fce8bdb58b772b;p=guile-irrlicht.git

diff --git a/irrlicht/foreign.scm b/irrlicht/foreign.scm
index aaac04f..94aab7c 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-pointer?))
 
 ;; We use a hash table to store foreign irrlicht methods related with their
 ;; classes
@@ -28,8 +30,6 @@
 (define remote-proc-table (make-hash-table))
 
 (define (get-irrlicht-proc proc-name . objects)
-  (format #t "Objects: ~a ~a~%" objects irr-class)
-  (format #t "Classes: ~a~%" (map irr-class objects))
   (let* ((name (if (null? objects)
                    proc-name
                    (let ((classes (map irr-class objects)))
@@ -42,3 +42,6 @@
              new-proc))
           (else
            proc))))
+
+(define (null-pointer? pointer)
+  (eq? pointer %null-pointer))