get-position

[guile-irrlicht.git] / src / position2d.cpp

diff --git a/src/position2d.cpp b/src/position2d.cpp
index 16c44bc50672b742c096835829fc1268018039a2..20fb74316f87b04a5e1779a69079fd7e04c4d6a3 100644 (file)
--- a/src/position2d.cpp
+++ b/src/position2d.cpp
@@ -25,6 +25,13 @@
 
 extern "C" {
 
+  SCM
+  scm_from_position2d_s32 (irr::core::position2d<irr::s32> position2d)
+  {
+    return scm_list_2 (scm_from_int32 (position2d.X),
+                       scm_from_int32 (position2d.Y));
+  }
+
   irr::core::position2d<irr::f32>
   scm_to_position2d_f32 (SCM position2d)
   {