X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fidentifier-smob.cc;h=b85d14211fcb90f870d339eeedf2af654912448b;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=51803ce10f592c4da20b09e7e18882efa26a99ec;hpb=e24df7c27635dc996c466295eacf2981bddccaf7;p=lilypond.git diff --git a/lily/identifier-smob.cc b/lily/identifier-smob.cc index 51803ce10f..b85d14211f 100644 --- a/lily/identifier-smob.cc +++ b/lily/identifier-smob.cc @@ -4,7 +4,7 @@ source file of the GNU LilyPond music typesetter - (c) 2002--2005 Han-Wen Nienhuys + (c) 2002--2008 Han-Wen Nienhuys */ #include "identifier-smob.hh" @@ -28,8 +28,8 @@ print_box (SCM b, SCM port, scm_print_state *) type `box', initialized to `#f'. */ LY_DEFINE (ly_export, "ly:export", 1, 0, 0, (SCM arg), - "Export a Scheme object to the parser, " - "so it is treated as an identifier.") + "Export a Scheme object to the parser" + " so it is treated as an identifier.") { SCM_RETURN_NEWSMOB (package_tag, arg); } @@ -39,7 +39,7 @@ unpack_identifier (SCM box) { if (SCM_IMP (box) || SCM_CELL_TYPE (box) != package_tag) return SCM_UNDEFINED; - + return SCM_CELL_OBJECT_1 (box); } @@ -51,4 +51,4 @@ init_box_type (void) scm_set_smob_print (package_tag, print_box); } -ADD_SCM_INIT_FUNC (package, init_box_type); +ADD_SCM_INIT_FUNC (package, init_box_type);