(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
(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)))
new-proc))
(else
proc))))
+
+(define (null-pointer? pointer)
+ (eq? pointer %null-pointer))