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

diff --git a/irrlicht/base.scm b/irrlicht/base.scm
index 4a5d9ae..76a7a6b 100644
--- a/irrlicht/base.scm
+++ b/irrlicht/base.scm
@@ -26,5 +26,10 @@
             irr-pointer))
 
 (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))