X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbase.scm;h=db1de76f1bd8333f03a0a74bcb93528f74dcedb8;hb=df1088b80d2c90a390b0229ce5c6ffcc7665fda4;hp=4f08eefec60e192deb3a85ae478069861d4611a8;hpb=564416a9178fd8cef21364c2d921af6c8166115d;p=guile-irrlicht.git

diff --git a/irrlicht/base.scm b/irrlicht/base.scm
index 4f08eef..db1de76 100644
--- a/irrlicht/base.scm
+++ b/irrlicht/base.scm
@@ -22,7 +22,18 @@
   #:use-module (oop goops)
   #:use-module (system foreign)
   #:export (<irrlicht-base>
-            irr-pointer))
+            irr-class
+            irr-pointer
+            is-empty?))
 
 (define-class <irrlicht-base> ()
-  (irr-pointer #:init-value %null-pointer #:accessor irr-pointer #:init-keyword #:irr-pointer))
+  (irr-class #:init-value "")
+  (irr-pointer #:init-value %null-pointer #:getter irr-pointer #:init-keyword #:irr-pointer))
+
+;; irr-class getter is defined in this way to avoid problems with multiple getters
+;; in multiple inherited classes
+(define-method (irr-class (obj <irrlicht-base>))
+  (slot-ref obj 'irr-class))
+
+(define-method (is-empty? (obj <irrlicht-base>))
+  (equal? (irr-pointer obj) %null-pointer))