X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fcore.scm;h=7d97476f35b156cdc8e7d919d2896067cf73a611;hp=0604076e29945e475d460aaba9a19068775bacfd;hb=df1088b80d2c90a390b0229ce5c6ffcc7665fda4;hpb=627c8d0c947391cb025671d281bc91370e55bb03

diff --git a/irrlicht/core.scm b/irrlicht/core.scm
index 0604076..7d97476 100644
--- a/irrlicht/core.scm
+++ b/irrlicht/core.scm
@@ -32,4 +32,8 @@
   (let ((aabbox3d_make (get-irrlicht-proc "aabbox3d_make")))
     (make <box3d> #:irr-pointer (aabbox3d_make))))
 
-(export <box3d> make-box3d)
+(define-method (reset-box3d! (box3d <box3d>) init-value)
+  (let ((reset (get-irrlicht-proc "aabbox3d_reset")))
+    (reset box3d init-value)))
+
+(export <box3d> make-box3d reset-box3d!)