Guile compat: support scm_t_subr, a new typedef in v2.0.0

[lilypond.git] / lily / include / ly-smobs.icc

diff --git a/lily/include/ly-smobs.icc b/lily/include/ly-smobs.icc
index fc14e544293aad85ed376f2341a9bb734caac636..1cb9e325905319ab220100ef1bf6605f54928843 100644 (file)
--- a/lily/include/ly-smobs.icc
+++ b/lily/include/ly-smobs.icc
@@ -1,7 +1,7 @@
 /*
   This file is part of LilyPond, the GNU music typesetter.
 
-  Copyright (C) 1999--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  Copyright (C) 1999--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
   LilyPond is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -20,6 +20,7 @@
 #ifndef LY_SMOBS_ICC
 #define LY_SMOBS_ICC
 
+#include "lily-guile-macros.hh"
 #include "smobs.hh"
 
 #define IMPLEMENT_TYPE_P(CL, FUNCNAME)                                 \
@@ -27,7 +28,7 @@
   void init_type_ ## CL ()                                             \
   {                                                                    \
     SCM subr = scm_c_define_gsubr (FUNCNAME, 1, 0, 0,                  \
-                                  (Scheme_function_unknown) CL::smob_p); \
+                                  (scm_t_subr) CL::smob_p); \
     CL ## _type_p_proc = subr;                                         \
     ly_add_function_documentation (subr, FUNCNAME, "(SCM x)",          \
                                   "Is @var{x} a @code{" #CL "} object?"); \