X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpaper-score-scheme.cc;h=a30bb1a88611631b50ca4c5cb31aa395ce6963d1;hb=92190ad98deac78cf32837078741296205072119;hp=d3ea9b3105c80b22c75bc8d5d356d6f3aded64f3;hpb=75eebcb49e52d296b1da3e1074e0825d2c780db4;p=lilypond.git diff --git a/lily/paper-score-scheme.cc b/lily/paper-score-scheme.cc index d3ea9b3105..a30bb1a886 100644 --- a/lily/paper-score-scheme.cc +++ b/lily/paper-score-scheme.cc @@ -1,9 +1,20 @@ /* - paper-score-scheme.cc -- implement Paper_score bindings + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2005--2010 Han-Wen Nienhuys - (c) 2005--2006 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 + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . */ #include "paper-score.hh" @@ -11,10 +22,11 @@ LY_DEFINE (ly_paper_score_paper_systems, "ly:paper-score-paper-systems", 1, 0, 0, (SCM paper_score), - "Return vector of Paper_system objects from @var{paper-score}.") + "Return vector of @code{paper_system} objects from" + " @var{paper-score}.") { - Paper_score *pscore = dynamic_cast (unsmob_music_output (paper_score)); - SCM_ASSERT_TYPE (pscore, paper_score, SCM_ARG1, __FUNCTION__, "Paper score (Music output)"); + LY_ASSERT_TYPE (unsmob_paper_score, paper_score, 1); + Paper_score *pscore = dynamic_cast (unsmob_music_output (paper_score)); return pscore->get_paper_systems (); }