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

diff --git a/irrlicht/foreign.scm b/irrlicht/foreign.scm
index f6e2036..aaac04f 100644
--- a/irrlicht/foreign.scm
+++ b/irrlicht/foreign.scm
@@ -28,6 +28,8 @@
 (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)))