call remote procs from guile code

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

diff --git a/irrlicht/io.scm b/irrlicht/io.scm
index 73961bb7655efdde69536940d86766a6419d4287..0229ac32316b68e7a26c784da7da1a931152f837 100644 (file)
--- a/irrlicht/io.scm
+++ b/irrlicht/io.scm
@@ -25,6 +25,7 @@
 
 
 ;; IAttributeExchangingObject
-(define-class <attribute-exchanging-object> (<reference-counted>))
+(define-class <attribute-exchanging-object> (<reference-counted>)
+  (irr-class #:init-value "IAttributeExchangingObject" #:getter irr-class))
 
 (export <attribute-exchanging-object>)