Some doc

[guile-irrlicht.git] / irrlicht / base.scm

diff --git a/irrlicht/base.scm b/irrlicht/base.scm
index dba889b6168eddb90b15b5518740111614d149aa..76a7a6bd1c725c3e1dc7b3206e3813cd58b26123 100644 (file)
--- a/irrlicht/base.scm
+++ b/irrlicht/base.scm
@@ -23,12 +23,13 @@
   #:use-module (system foreign)
   #:export (<irrlicht-base>
             irr-class
-            irr-pointer
-            is-empty?))
+            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))
 
-(define-method (is-empty? (obj <irrlicht-base>))
-  (equal? (irr-pointer obj) %null-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))