Uniformize, internalize.

[lilypond.git] / lily / stencil-scheme.cc

diff --git a/lily/stencil-scheme.cc b/lily/stencil-scheme.cc
index 0bffa6edb356a43d9720b9ba0db6fbf18f431bd5..263d06ae52f0a5dcaf7c760e717bb088a845697c 100644 (file)
--- a/lily/stencil-scheme.cc
+++ b/lily/stencil-scheme.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include <math.h>
@@ -47,8 +47,10 @@ LY_DEFINE (ly_translate_stencil_axis, "ly:stencil-translate-axis",
   SCM_ASSERT_TYPE (scm_is_number (amount), amount, SCM_ARG2, __FUNCTION__, "number");
 
   Real real_amount = scm_to_double (amount);
+#if 0
   SCM_ASSERT_TYPE (!isinf (real_amount) && !isnan (real_amount),
                   amount, SCM_ARG2, __FUNCTION__, "finite number");
+#endif
   
   SCM_ASSERT_TYPE (is_axis (axis), axis, SCM_ARG3, __FUNCTION__, "axis");
 
@@ -307,7 +309,7 @@ LY_DEFINE (ly_interpret_stencil_expression, "ly:interpret-stencil-expression",
 
 
 
-LY_DEFINE (ly_bracket ,"ly:bracket",
+LY_DEFINE (ly_bracket , "ly:bracket",
          4, 0, 0,
          (SCM a, SCM iv, SCM t, SCM p),
          "Make a bracket in direction @var{a}. The extent of the bracket is " 
@@ -328,7 +330,7 @@ LY_DEFINE (ly_bracket ,"ly:bracket",
 
 
 
-LY_DEFINE (ly_filled_box ,"ly:round-filled-box",
+LY_DEFINE (ly_filled_box , "ly:round-filled-box",
          3, 0, 0,
          (SCM xext, SCM yext, SCM blot),
          "Make a @code{Stencil} "