*** empty log message ***

[lilypond.git] / lily / paper-system-scheme.cc

diff --git a/lily/paper-system-scheme.cc b/lily/paper-system-scheme.cc
index 46f984d2f88178ec5638c9ad1226e96ae02f4d82..760999b3ebfc2082e61b45365cfa7e35d247471c 100644 (file)
--- a/lily/paper-system-scheme.cc
+++ b/lily/paper-system-scheme.cc
@@ -1,10 +1,9 @@
 /*
-  paper-system-scheme.cc --  implement Paper_system bindings
+  paper-system-scheme.cc -- implement Paper_system bindings
 
   source file of the GNU LilyPond music typesetter
 
   (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
-
 */
 
 #include "paper-system.hh"
@@ -17,11 +16,9 @@ LY_DEFINE (ly_paper_system_height, "ly:paper-system-extent",
   SCM_ASSERT_TYPE (ps, system, SCM_ARG1, __FUNCTION__, "paper-system");
   SCM_ASSERT_TYPE (is_axis (axis), axis, SCM_ARG2, __FUNCTION__, "axis");
   Axis ax = (Axis)scm_to_int (axis);
-  return ly_interval2scm (ps->to_stencil().extent (ax));
+  return ly_interval2scm (ps->to_stencil ().extent (ax));
 }
 
-
-
 LY_DEFINE (ly_paper_system_title_p, "ly:paper-system-title?",
           1, 0, 0, (SCM system),
           "Is  @var{system} a title system?")
@@ -37,7 +34,7 @@ LY_DEFINE (ly_paper_system_number, "ly:paper-system-number",
 {
   Paper_system *ps = unsmob_paper_system (system);
   SCM_ASSERT_TYPE (ps, system, SCM_ARG1, __FUNCTION__, "paper-system");
-  return scm_int2num (ps->number_);
+  return scm_from_int (ps->number_);
 }
 
 LY_DEFINE (ly_paper_system_break_before_penalty, "ly:paper-system-break-before-penalty",
@@ -46,7 +43,7 @@ LY_DEFINE (ly_paper_system_break_before_penalty, "ly:paper-system-break-before-p
 {
   Paper_system *ps = unsmob_paper_system (system);
   SCM_ASSERT_TYPE (ps, system, SCM_ARG1, __FUNCTION__, "paper-system");
-  return scm_int2num (int (ps->break_before_penalty ()));
+  return scm_from_int (int (ps->break_before_penalty ()));
 }
 
 LY_DEFINE (ly_paper_system_stencil, "ly:paper-system-stencil",
@@ -58,8 +55,6 @@ LY_DEFINE (ly_paper_system_stencil, "ly:paper-system-stencil",
   return ps->to_stencil ().smobbed_copy ();
 }
 
-
-
 LY_DEFINE (ly_paper_system_staff_extent, "ly:paper-system-staff-extents",
           1, 0, 0, (SCM system),
           "Return the top and bottom staff refpoint.")