call remote procs from guile code

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

diff --git a/src/device.cpp b/src/device.cpp
index 63db119696fe5513bdd2c94238b903ad77db948f..ed551705389337c09e789d110d54ba0ac2f6ac1b 100644 (file)
--- a/src/device.cpp
+++ b/src/device.cpp
@@ -31,15 +31,14 @@
 using namespace irr;
 
 
-template <typename TEventReceiver>
 SCM
-createDevice (SCM device_type,
-              SCM window_size,
-              SCM bits,
-              SCM fullscreen,
-              SCM stencilbuffer,
-              SCM vsync,
-              SCM receiver)
+irr_createDevice (SCM device_type,
+                  SCM window_size,
+                  SCM bits,
+                  SCM fullscreen,
+                  SCM stencilbuffer,
+                  SCM vsync,
+                  SCM receiver)
 {
   IrrlichtDevice* device =
     createDevice (scm_to_driver_type (device_type),
@@ -48,7 +47,7 @@ createDevice (SCM device_type,
                   scm_to_bool (fullscreen),
                   scm_to_bool (stencilbuffer),
                   scm_to_bool (vsync),
-                  (TEventReceiver)scm_to_pointer (receiver));
+                  (IEventReceiver*)scm_to_pointer (receiver));
   return scm_from_pointer ((void*)device, NULL);
 }
 
@@ -167,7 +166,7 @@ extern "C" {
   void
   init_device (void)
   {
-    DEFINE_GSUBR ("createDevice_IEventReceiver", 7, 0, 0, createDevice<IEventReceiver*>);
+    DEFINE_GSUBR ("createDevice", 7, 0, 0, irr_createDevice);
     DEFINE_GSUBR ("IrrlichtDevice_getCursorControl", 1, 0, 0, IrrlichtDevice_getCursorControl);
     DEFINE_GSUBR ("IrrlichtDevice_getFileSystem", 1, 0, 0, IrrlichtDevice_getFileSystem);
     DEFINE_GSUBR ("IrrlichtDevice_getGUIEnvironment", 1, 0, 0, IrrlichtDevice_getGUIEnvironment);