X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fio.scm;h=0276982dc932560e8d7221c5fd7d9c11b727b4c3;hb=f0da6b5b2ca5b945912888864b264dc79dc031a1;hp=1e94c5d23fd774668b28156d189051a186018d48;hpb=09e9ed196aadab0f77e831c134fce8bdb58b772b;p=guile-irrlicht.git

diff --git a/irrlicht/io.scm b/irrlicht/io.scm
index 1e94c5d..0276982 100644
--- a/irrlicht/io.scm
+++ b/irrlicht/io.scm
@@ -27,21 +27,21 @@
 
 ;; IAttributeExchangingObject
 (define-class <attribute-exchanging-object> (<reference-counted>)
-  (irr-class #:init-value "IAttributeExchangingObject" #:getter irr-class))
+  (irr-class #:init-value "IAttributeExchangingObject"))
 
 (export <attribute-exchanging-object>)
 
 
 ;;IFileArchive
 (define-class <file-archive> (<reference-counted>)
-  (irr-class #:init-value "IFileArchive" #:getter irr-class))
+  (irr-class #:init-value "IFileArchive"))
 
 (export <file-archive>)
 
 
 ;;IFileSystem
 (define-class <file-system> (<reference-counted>)
-  (irr-class #:init-value "IFileSystem" #:getter irr-class))
+  (irr-class #:init-value "IFileSystem"))
 
 (define-method (add-file-archive! (file-system <file-system>) filename . rest)
   (let-keywords rest #f