X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fcore.scm;h=8605919dd10a4138812409ed052ef70128b5e68c;hb=5f5b7536e4f044eb617925db8d4df9b02be3ba7d;hp=c432714e9c17dc8d49a8e6584daec7f7aa0f56d9;hpb=ca1d1d0dd811558f133bfdad62b2b645a31695ff;p=guile-irrlicht.git

diff --git a/irrlicht/bindings/core.scm b/irrlicht/bindings/core.scm
index c432714..8605919 100644
--- a/irrlicht/bindings/core.scm
+++ b/irrlicht/bindings/core.scm
@@ -22,11 +22,23 @@
   #:use-module (system foreign)
   #:use-module (irrlicht util))
 
+;; rect struct
+(define-public rect
+  (list int32 int32 int32 int32))
+
+;; vector2df struct
+(define-public vector2df
+  (list float float float))
+
+;; vector3df struct
+(define-public vector3df
+  (list float float float))
+
 ;; aabbox3d f32 struct and functions
 (define-public aabbox3d_f32
-  (list
-   float float float ;minEdge
-   float float float ;maxEdge
+  (append
+   vector3df  ; min-edge
+   vector3df  ; max-edge
    ))
 
 (define-foreign aabbox3d-add-internal-point
@@ -34,15 +46,3 @@
 
 (define-foreign aabbox3d-reset
   void "irr_core_aabbox3d_reset" (list '* '*))
-
-;; dimension2d struct
-(define-public dimension2d
-  (list uint32 uint32))
-
-;; rect struct
-(define-public rect
-  (list int32 int32 int32 int32))
-
-;; vector3df struct
-(define-public vector3df
-  (list float float float))