X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Freference-counted.cpp;h=24394a4d850a67dd90d887aecf5f6a4fde4b6ee6;hb=79e12d94cc21232477796a4e76fc2ddb5d88f9dc;hp=3e099d142419d7d91548dbbaabc4f24fb2e1f5e3;hpb=6c6597fcd2f8224cd019b4339037867c246b8a71;p=guile-irrlicht.git diff --git a/src/reference-counted.cpp b/src/reference-counted.cpp index 3e099d1..24394a4 100644 --- a/src/reference-counted.cpp +++ b/src/reference-counted.cpp @@ -23,26 +23,21 @@ #include #include "gsubr.h" #include "reference-counted.h" - +#include "wrapped.h" using namespace irr; - template SCM IReferenceCounted_drop (SCM obj) { - return scm_from_bool (((T) scm_to_pointer (obj))->drop ()); + return scm_from_bool (((T) scm_to_irr_pointer (obj))->drop ()); } - -extern "C" { - - void - init_reference_counted (void) - { - DEFINE_GSUBR ("IReferenceCounted_drop_IrrlichtDevice", 1, 0, 0, - IReferenceCounted_drop); - } - +void +init_reference_counted (void) +{ + DEFINE_GSUBR ("IrrlichtDevice_drop", 1, 0, 0, IReferenceCounted_drop); + DEFINE_GSUBR ("ISceneNodeAnimator_drop", 1, 0, 0, + IReferenceCounted_drop); }