X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;ds=sidebyside;f=src%2Fvertex3d.cpp;h=9b7a1e874d7408a59f1c2f9ae2fff68185a3034f;hb=c4d9e46f268b4f7f738dd77685c632991125cec9;hp=d7629eafc43f5c7ba3ce720b819df45d5da4418d;hpb=d52f560e9d3693c7810cfb351cf124b1c32e6d72;p=guile-irrlicht.git

diff --git a/src/vertex3d.cpp b/src/vertex3d.cpp
index d7629ea..9b7a1e8 100644
--- a/src/vertex3d.cpp
+++ b/src/vertex3d.cpp
@@ -26,11 +26,10 @@
 #include "vector2d.h"
 #include "vector3d.h"
 #include "vertex3d.h"
-
+#include "wrapped.h"
 
 using namespace irr;
 
-
 SCM
 video_S3DVertex_make (SCM position,
                       SCM normal,
@@ -45,26 +44,19 @@ video_S3DVertex_make (SCM position,
   return scm_from_pointer ((void*) vertex, NULL);
 }
 
-
 SCM
 video_S3DVertex_Pos (SCM vertex) {
-  video::S3DVertex* s3dvertex = (video::S3DVertex*) scm_to_pointer (vertex);
+  video::S3DVertex* s3dvertex = (video::S3DVertex*) scm_to_irr_pointer (vertex);
   return scm_from_vector3df (s3dvertex->Pos);
 }
 
-
-extern "C" {
-
-  void
-  init_vertex3d (void)
-  {
-    DEFINE_GSUBR ("video_S3DVertex_make", 4, 0, 0, video_S3DVertex_make);
-    DEFINE_GSUBR ("video_S3DVertex_Pos", 1, 0, 0, video_S3DVertex_Pos);
-  }
-
+void
+init_vertex3d (void)
+{
+  DEFINE_GSUBR ("video_S3DVertex_make", 4, 0, 0, video_S3DVertex_make);
+  DEFINE_GSUBR ("video_S3DVertex_Pos", 1, 0, 0, video_S3DVertex_Pos);
 }
 
-
 video::E_VERTEX_TYPE
 scm_to_vertex_type (SCM vertex_type)
 {