call remote procs from guile code

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

diff --git a/src/box3d.cpp b/src/box3d.cpp
index f9a688b7c848ea9f598b38660afdddecce04f7bd..71571b1013b9e59772ca4ac1b02e20e787039fd3 100644 (file)
--- a/src/box3d.cpp
+++ b/src/box3d.cpp
@@ -30,8 +30,8 @@ using namespace irr;
 
 
 SCM
-core_aabbox3d_addInternalPoint (SCM box3d,
-                                SCM point)
+aabbox3d_addInternalPoint (SCM box3d,
+                           SCM point)
 {
   ((core::aabbox3df*)scm_to_pointer (box3d))->addInternalPoint (scm_to_vector3df (point));
   return SCM_UNSPECIFIED;
@@ -39,7 +39,7 @@ core_aabbox3d_addInternalPoint (SCM box3d,
 
 
 SCM
-core_aabbox3d_make ()
+aabbox3d_make ()
 {
   core::aabbox3df* aabbox = new core::aabbox3df ();
   return scm_from_pointer ((void*)aabbox, NULL);
@@ -47,8 +47,8 @@ core_aabbox3d_make ()
 
 
 SCM
-core_aabbox3d_reset (SCM box3d,
-                     SCM init_value)
+aabbox3d_reset (SCM box3d,
+                SCM init_value)
 {
   ((core::aabbox3df*)scm_to_pointer (box3d))->reset (scm_to_vector3df (init_value));
   return SCM_UNSPECIFIED;
@@ -60,12 +60,9 @@ extern "C" {
   void
   init_box3d (void)
   {
-    DEFINE_GSUBR ("core_aabbox3d_addInternalPoint", 2, 0, 0,
-                  core_aabbox3d_addInternalPoint);
-    DEFINE_GSUBR ("core_aabbox3d_make", 0, 0, 0,
-                  core_aabbox3d_make);
-    DEFINE_GSUBR ("core_aabbox3d_reset", 2, 0, 0,
-                  core_aabbox3d_reset);
+    DEFINE_GSUBR ("aabbox3d_addInternalPoint", 2, 0, 0, aabbox3d_addInternalPoint);
+    DEFINE_GSUBR ("aabbox3d_make", 0, 0, 0, aabbox3d_make);
+    DEFINE_GSUBR ("aabbox3d_reset", 2, 0, 0, aabbox3d_reset);
   }
 
 }