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