X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fsmobs.cc;h=e2ec5d5638124b947cd9cf0c936ebe1e86dff775;hb=2c22efe5a46a37065b10c3f51c5d7db00d07d318;hp=63d36f23a57db8afd4fd42af4383da306ead9693;hpb=42dec791a83d21306b2ad15a03664cdc492397f0;p=lilypond.git diff --git a/lily/smobs.cc b/lily/smobs.cc index 63d36f23a5..e2ec5d5638 100644 --- a/lily/smobs.cc +++ b/lily/smobs.cc @@ -4,7 +4,6 @@ source file of the GNU LilyPond music typesetter (c) 2005 Han-Wen Nienhuys - */ #include "smobs.hh" @@ -12,12 +11,12 @@ static SCM smob_protection_list; void -init_smob_protection() +init_smob_protection () { smob_protection_list = scm_cons (SCM_UNDEFINED, SCM_EOL); scm_permanent_object (smob_protection_list); } -ADD_SCM_INIT_FUNC(init_smob_protection, init_smob_protection); +ADD_SCM_INIT_FUNC (init_smob_protection, init_smob_protection); void protect_smob (SCM smob, SCM *prot_cons) @@ -49,9 +48,7 @@ unprotect_smob (SCM *prot_cons) while (scm_is_pair (next) && scm_car (next) == SCM_UNDEFINED) - { - next = scm_cdr (next); - } + next = scm_cdr (next); scm_set_cdr_x (*prot_cons, next); }