X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fcore.scm;h=140506b47a0ab40414007ed2280f920f67e7875c;hb=4eb7b8f04ad278d49d632d62030b5fe648e3b97a;hp=59b05af4e9fcd56c63f3b0a6bec6e01c8bda1340;hpb=0db087e68fdb778a73beca6cf0d35d4e718339e5;p=guile-irrlicht.git

diff --git a/irrlicht/bindings/core.scm b/irrlicht/bindings/core.scm
index 59b05af..140506b 100644
--- a/irrlicht/bindings/core.scm
+++ b/irrlicht/bindings/core.scm
@@ -51,7 +51,7 @@
   (make-c-struct vector3df data))
 
 ;; aabbox3df struct
-(define-wrapped-pointer-type aabbox3df
+(define-wrapped-pointer-type aabbox3df-type
   aabbox3df?
   pointer->aabbox3df aabbox3df->pointer
   (lambda (box port)
@@ -60,12 +60,12 @@
 
 (export aabbox3df->pointer)
 
-(define aabbox3df-type
+(define-public aabbox3df
   (list vector3df vector3df))
 
 (define-public (make-aabbox3df)
   (pointer->aabbox3df
-   (make-c-struct aabbox3df-type '((0 0 0) (0 0 0)))))
+   (make-c-struct aabbox3df '((0 0 0) (0 0 0)))))
 
 (define-foreign aabbox3d-add-internal-point
   void "irr_core_aabbox3d_addInternalPoint" (list '* '*))