X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fbase.scm;h=db1de76f1bd8333f03a0a74bcb93528f74dcedb8;hp=dba889b6168eddb90b15b5518740111614d149aa;hb=fc3be36ca8e29c32e1758ae99c9982aa287d8920;hpb=09e9ed196aadab0f77e831c134fce8bdb58b772b

diff --git a/irrlicht/base.scm b/irrlicht/base.scm
index dba889b..db1de76 100644
--- a/irrlicht/base.scm
+++ b/irrlicht/base.scm
@@ -27,8 +27,13 @@
             is-empty?))
 
 (define-class <irrlicht-base> ()
-  (irr-class #:init-value "" #:getter irr-class)
+  (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))