#:use-module (system foreign)
#:use-module (irrlicht base)
#:export (get-irrlicht-proc
- null-pointer?))
+ null-object?))
;; We use a hash table to store foreign irrlicht methods related with their
;; classes
(else
proc))))
-(define (null-pointer? pointer)
- (eq? pointer %null-pointer))
+(define (null-object? object)
+ (eq? (irr-pointer object) %null-pointer))