// included from smobs.hh, but other template expansion systems might
// make it feasible to compile this only a single time.
-#include "lily-guile-macros.hh"
-#include "smobs.hh"
#include <typeinfo>
template <class Super>
// Defaults, should not actually get called
template <class Super>
SCM
-Smob_base<Super>::mark_smob ()
+Smob_base<Super>::mark_smob () const
{
return SCM_UNSPECIFIED;
}
template <class Super>
int
-Smob_base<Super>::print_smob (SCM p, scm_print_state *)
+Smob_base<Super>::print_smob (SCM p, scm_print_state *) const
{
scm_puts ("#<", p);
scm_puts (smob_name_.c_str (), p);
Scm_init Smob_base<Super>::scm_init_ (init);
template <class Super>
-string Smob_base<Super>::smob_name_;
+std::string Smob_base<Super>::smob_name_;
template <class Super>
void Smob_base<Super>::init ()
{
SCM subr = scm_c_define_gsubr (Super::type_p_name_, 1, 0, 0,
(scm_t_subr) smob_p);
- string fundoc = string("Is @var{x} a @code{") + smob_name_
+ std::string fundoc = std::string("Is @var{x} a @code{") + smob_name_
+ "} object?";
ly_add_function_documentation (subr, Super::type_p_name_, "(SCM x)",
fundoc);