Macro for defining guile procedures

[guile-irrlicht.git] / src / reference-counted.cpp

diff --git a/src/reference-counted.cpp b/src/reference-counted.cpp
index 9b858cc6e892e81494aa1ac6bfe386fb319cd934..1060df4b56c9d657216ace980e44190719c7df89 100644 (file)
--- a/src/reference-counted.cpp
+++ b/src/reference-counted.cpp
@@ -23,6 +23,7 @@
 #include <libguile.h>
 
 #include "device.h"
+#include "gsubr.h"
 #include "reference-counted.h"
 #include "scene-node-animator.h"
 
@@ -31,8 +32,7 @@ extern "C" {
   void
   init_reference_counted (void)
   {
-    scm_c_define_gsubr ("drop!", 1, 0, 0, (scm_t_subr)irr_drop);
-    scm_c_export ("drop!", NULL);
+    DEFINE_GSUBR ("drop!", 1, 0, 0, irr_drop);
   }
 
   SCM