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

diff --git a/irrlicht/bindings/core.scm b/irrlicht/bindings/core.scm
index 140506b..a5f06fd 100644
--- a/irrlicht/bindings/core.scm
+++ b/irrlicht/bindings/core.scm
@@ -58,15 +58,12 @@
     (format port "#<aabbox3df ~x>"
             (pointer-address (aabbox3df->pointer box)))))
 
-(export aabbox3df->pointer)
+(export pointer->aabbox3df
+        aabbox3df->pointer)
 
 (define-public aabbox3df
   (list vector3df vector3df))
 
-(define-public (make-aabbox3df)
-  (pointer->aabbox3df
-   (make-c-struct aabbox3df '((0 0 0) (0 0 0)))))
-
 (define-foreign aabbox3d-add-internal-point
   void "irr_core_aabbox3d_addInternalPoint" (list '* '*))