X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fsmobs.cc;h=7bdaaa7f922017055367d496abe3c852a744b479;hb=7281bce4e6aff8ba87081c4d397434bc745d1241;hp=9629ed45ee610702f2d3e4b1024b56be9e3ac693;hpb=8d796a54fbfc350c56f04088cb0c009ee0287256;p=lilypond.git diff --git a/lily/smobs.cc b/lily/smobs.cc index 9629ed45ee..7bdaaa7f92 100644 --- a/lily/smobs.cc +++ b/lily/smobs.cc @@ -3,7 +3,7 @@ source file of the GNU LilyPond music typesetter - (c) 2005--2006 Han-Wen Nienhuys + (c) 2005--2007 Han-Wen Nienhuys */ #include "smobs.hh" @@ -21,9 +21,9 @@ init_smob_protection () } ADD_SCM_INIT_FUNC (init_smob_protection, init_smob_protection); -LY_DEFINE(ly_smob_protects, "ly:smob-protects", +LY_DEFINE (ly_smob_protects, "ly:smob-protects", 0, 0, 0, (), - "Return lily's internal smob protection list") + "Return LilyPond's internal smob protection list.") { return scm_is_pair (smob_protection_list) ? scm_cdr (smob_protection_list) @@ -44,6 +44,7 @@ protect_smob (SCM smob, SCM *prot_cons) prot); *prot_cons = prot; #else + (void) prot_cons; scm_gc_protect_object (smob); #endif } @@ -52,6 +53,7 @@ void unprotect_smob (SCM smob, SCM *prot_cons) { #if 1 + (void) prot_cons; scm_gc_unprotect_object (smob); #else SCM next = scm_cdr (*prot_cons);