along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
*/
-#include "output-def.hh"
-
#include "context-def.hh"
#include "file-path.hh"
#include "global-context.hh"
#include "international.hh"
#include "interval.hh"
+#include "ly-module.hh"
#include "main.hh"
#include "output-def.hh"
#include "scm-hash.hh"
SCM
-Output_def::mark_smob ()
+Output_def::mark_smob () const
{
/* FIXME: why is this necessary?
all paper_ should be protected by themselves. */
void
assign_context_def (Output_def * m, SCM transdef)
{
- Context_def *tp = Context_def::unsmob (transdef);
+ Context_def *tp = unsmob<Context_def> (transdef);
assert (tp);
if (tp)
SCM
find_context_def (Output_def const *m, SCM name)
{
- Context_def *cd = Context_def::unsmob (m->lookup_variable (name));
+ Context_def *cd = unsmob<Context_def> (m->lookup_variable (name));
return cd ? cd->self_scm () : SCM_EOL;
}
int
-Output_def::print_smob (SCM p, scm_print_state *)
+Output_def::print_smob (SCM p, scm_print_state *) const
{
scm_puts ("#< ", p);
scm_puts (class_name (), p);