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