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

diff --git a/irrlicht/base.scm b/irrlicht/base.scm
index 4f08eef..4a5d9ae 100644
--- a/irrlicht/base.scm
+++ b/irrlicht/base.scm
@@ -22,7 +22,9 @@
   #:use-module (oop goops)
   #:use-module (system foreign)
   #:export (<irrlicht-base>
+            irr-class
             irr-pointer))
 
 (define-class <irrlicht-base> ()
-  (irr-pointer #:init-value %null-pointer #:accessor irr-pointer #:init-keyword #:irr-pointer))
+  (irr-class #:init-value "" #:getter irr-class)
+  (irr-pointer #:init-value %null-pointer #:getter irr-pointer #:init-keyword #:irr-pointer))