X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fcursor-control.cpp;fp=src%2Fcursor-control.cpp;h=5ff6540d7960e82df57fea5fa40b9049627fed7a;hb=69ed7f57e6295034fa64ab2bf6d10da6882860ef;hp=ada992f7fbb0bb0319ec161a3bbb02414ef0f00f;hpb=346c775ed6bc5b17d7360329d03583b0a443c6b8;p=guile-irrlicht.git

diff --git a/src/cursor-control.cpp b/src/cursor-control.cpp
index ada992f..5ff6540 100644
--- a/src/cursor-control.cpp
+++ b/src/cursor-control.cpp
@@ -24,6 +24,7 @@
 
 #include "cursor-control.h"
 #include "device.h"
+#include "gsubr.h"
 #include "position2d.h"
 #include "wrapped.h"
 
@@ -33,8 +34,7 @@ extern "C" {
   init_cursor_control (void)
   {
     init_cursor_control_type ();
-    scm_c_define_gsubr ("get-cursor-control", 1, 0, 0, (scm_t_subr)irr_getCursorControl);
-    scm_c_export ("get-cursor-control", NULL);
+    DEFINE_GSUBR ("get-cursor-control", 1, 0, 0, irr_getCursorControl);
   }
 
   DEFINE_WRAPPED_TYPE (irr::gui::ICursorControl*, "cursor-control",