X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fstencil-expression.cc;h=750d088e1637057a914d2cefbb651a548f2f827a;hb=4024156d2ebb9d7b5caf34dde98afca000d4b296;hp=d7a7526e988d9ce1241f948aeac3c467d19ca867;hpb=bc95f4434f760d41191341ab4508b2064eb19025;p=lilypond.git diff --git a/lily/stencil-expression.cc b/lily/stencil-expression.cc index d7a7526e98..750d088e16 100644 --- a/lily/stencil-expression.cc +++ b/lily/stencil-expression.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 2005--2010 Han-Wen Nienhuys + Copyright (C) 2005--2012 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 @@ -25,16 +25,16 @@ void register_stencil_head (SCM symbol) { if (!heads) heads = scm_permanent_object (scm_cons (SCM_EOL, SCM_EOL)); - + scm_set_object_property_x (symbol, ly_symbol2scm ("stencil-head?"), SCM_BOOL_T); - scm_set_cdr_x (heads, scm_cons (symbol, scm_cdr (heads))); + scm_set_cdr_x (heads, scm_cons (symbol, scm_cdr (heads))); } bool is_stencil_head (SCM symbol) { return scm_object_property (symbol, ly_symbol2scm ("stencil-head?")) - == SCM_BOOL_T; + == SCM_BOOL_T; } SCM