X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fbase.scm;h=dba889b6168eddb90b15b5518740111614d149aa;hp=4a5d9ae91a405265da9c1e46f2b9aaf9d4aa2c85;hb=73e48b7e6472724899af8284491802e950156004;hpb=98052b04792129db97286fdd77ef3b0de8912286

diff --git a/irrlicht/base.scm b/irrlicht/base.scm
index 4a5d9ae..dba889b 100644
--- a/irrlicht/base.scm
+++ b/irrlicht/base.scm
@@ -23,8 +23,12 @@
   #:use-module (system foreign)
   #:export (<irrlicht-base>
             irr-class
-            irr-pointer))
+            irr-pointer
+            is-empty?))
 
 (define-class <irrlicht-base> ()
   (irr-class #:init-value "" #:getter irr-class)
   (irr-pointer #:init-value %null-pointer #:getter irr-pointer #:init-keyword #:irr-pointer))
+
+(define-method (is-empty? (obj <irrlicht-base>))
+  (equal? (irr-pointer obj) %null-pointer))