X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fvertex3d.cpp;fp=src%2Fvertex3d.cpp;h=6ffc86dc3046eb4ca852ed9473d28f39ad98277d;hb=69ed7f57e6295034fa64ab2bf6d10da6882860ef;hp=f6adab086d5371d8352dee98cfb0814c55a64c4a;hpb=346c775ed6bc5b17d7360329d03583b0a443c6b8;p=guile-irrlicht.git

diff --git a/src/vertex3d.cpp b/src/vertex3d.cpp
index f6adab0..6ffc86d 100644
--- a/src/vertex3d.cpp
+++ b/src/vertex3d.cpp
@@ -21,7 +21,9 @@
 
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
+
 #include "color.h"
+#include "gsubr.h"
 #include "vector2d.h"
 #include "vector3d.h"
 #include "vertex3d.h"
@@ -33,9 +35,8 @@ extern "C" {
   init_vertex3d (void)
   {
     init_vertex3d_type ();
-    scm_c_define_gsubr ("make-vertex3d", 4, 0, 0, (scm_t_subr)make_vertex3d);
-    scm_c_define_gsubr ("vertex3d-position", 1, 0, 0, (scm_t_subr)vertex3d_position);
-    scm_c_export ("make-vertex3d", "vertex3d-position", NULL);
+    DEFINE_GSUBR ("make-vertex3d", 4, 0, 0, make_vertex3d);
+    DEFINE_GSUBR ("vertex3d-position", 1, 0, 0, vertex3d_position);
   }
 
   DEFINE_WRAPPED_TYPE (irr::video::S3DVertex*, "vertex3d",