X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Foutput-def.cc;h=b6a83212c162baef798e76f89bbd1c1868642045;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=eeb5a7a84c0d7cf160f2adf2113e3c95ea983d64;hpb=00b9619cea1020f6773f23df8764ef85ee2912bf;p=lilypond.git diff --git a/lily/output-def.cc b/lily/output-def.cc index eeb5a7a84c..b6a83212c1 100644 --- a/lily/output-def.cc +++ b/lily/output-def.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 1997--2014 Han-Wen Nienhuys + Copyright (C) 1997--2015 Han-Wen Nienhuys LilyPond is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -45,6 +45,7 @@ Output_def::Output_def () } Output_def::Output_def (Output_def const &s) + : Smob () { scope_ = SCM_EOL; parent_ = 0; @@ -94,11 +95,10 @@ find_context_def (Output_def const *m, SCM name) } int -Output_def::print_smob (SCM s, SCM p, scm_print_state *) +Output_def::print_smob (SCM p, scm_print_state *) { - Output_def * def = Output_def::unsmob (s); scm_puts ("#< ", p); - scm_puts (def->class_name (), p); + scm_puts (class_name (), p); scm_puts (">", p); return 1; }