X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fvector3d.cpp;h=566a441e19ce2dd22a135c319b38dc0cc85451f6;hb=79e12d94cc21232477796a4e76fc2ddb5d88f9dc;hp=85f5bf86223c18cca32660e5d8046cba0c8ce99e;hpb=21f12bf4ba8c031b36784e1e0a479535f477cc59;p=guile-irrlicht.git

diff --git a/src/vector3d.cpp b/src/vector3d.cpp
index 85f5bf8..566a441 100644
--- a/src/vector3d.cpp
+++ b/src/vector3d.cpp
@@ -23,15 +23,21 @@
 #include <libguile.h>
 #include "vector3d.h"
 
-extern "C" {
-
-  irr::core::vector3df
-  scm_to_vector3df (SCM vector3d)
-  {
-    return irr::core::vector3df
-      (scm_to_double (scm_car (vector3d)),
-       scm_to_double (scm_cadr (vector3d)),
-       scm_to_double (scm_caddr (vector3d)));
-  }
+using namespace irr;
+
+SCM
+scm_from_vector3df (core::vector3df vector3d)
+{
+  return scm_list_3 (scm_from_double (vector3d.X),
+                     scm_from_double (vector3d.Y),
+                     scm_from_double (vector3d.Z));
+}
 
+core::vector3df
+scm_to_vector3df (SCM vector3d)
+{
+  return core::vector3df
+    (scm_to_double (scm_car (vector3d)),
+     scm_to_double (scm_cadr (vector3d)),
+     scm_to_double (scm_caddr (vector3d)));
 }