SMaterial and vertices

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

diff --git a/irrlicht/core.scm b/irrlicht/core.scm
index 7bc62084e77dd0b630a72d395c74b139f86e5a77..a0cb97327691d68fe78d85d1939c0c7a7ded0245 100644 (file)
--- a/irrlicht/core.scm
+++ b/irrlicht/core.scm
@@ -19,9 +19,14 @@
 
 
 (define-module (irrlicht core)
+  #:use-module (system foreign)
   #:use-module ((irrlicht bindings core) #:prefix ffi-core:)
-  #:export (aabbox3d-reset!)
-  #:re-export ((ffi-core:make-aabbox3df . make-aabbox3df)))
+  #:export (make-aabbox3df
+            aabbox3d-reset!))
+
+(define (make-aabbox3df)
+  (ffi-core:pointer->aabbox3df
+   (make-c-struct ffi-core:aabbox3df '((0 0 0) (0 0 0)))))
 
 (define (aabbox3d-reset! box init-value)
   (ffi-core:aabbox3d-reset