From 077d4476e040cb18aba7f1948b1ec0312d15f605 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 22:28:18 +0000
Subject: [PATCH] lilypond-1.3.0

---
 lily/tuplet-engraver.cc | 14 ++++++++------
 lily/tuplet-spanner.cc  |  4 ++++
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/lily/tuplet-engraver.cc b/lily/tuplet-engraver.cc
index c067169a8c..ce9c2cd2de 100644
--- a/lily/tuplet-engraver.cc
+++ b/lily/tuplet-engraver.cc
@@ -35,13 +35,13 @@ void
 Tuplet_engraver::do_process_requests ()
 {
   int dir = 0;
-  Scalar prop = get_property ("tupletDirection", 0);
-  if (prop.isnum_b())
-    dir = (int)prop;
+  SCM prop = get_property ("tupletDirection", 0);
+  if (isdir_b (prop))
+    dir = to_dir (prop);
   int visibility = 3;
   prop = get_property ("tupletVisibility", 0);
-  if (prop.isnum_b())
-    visibility = (int)prop;
+  if (SCM_NUMBERP(prop))
+    visibility = gh_scm2int (prop);	// bool ?
 
   for (int i= started_span_p_arr_.size ();
        i < time_scaled_music_arr_.size (); i++)
@@ -61,7 +61,9 @@ void
 Tuplet_engraver::acknowledge_element (Score_element_info i)
 {
   bool grace= (i.elem_l_->get_elt_property (grace_scm_sym) != SCM_BOOL_F);
-  if (grace != get_property ("weAreGraceContext",0).to_bool ())
+  SCM wg = get_property ("weAreGraceContext",0);
+  bool wgb = gh_boolean_p (wg) && gh_scm2bool (wg);
+  if (grace != wgb)
     return;
   
   if (Note_column *nc = dynamic_cast<Note_column *> (i.elem_l_))
diff --git a/lily/tuplet-spanner.cc b/lily/tuplet-spanner.cc
index 8ea56cdd42..234a4f982a 100644
--- a/lily/tuplet-spanner.cc
+++ b/lily/tuplet-spanner.cc
@@ -38,6 +38,10 @@ Tuplet_spanner::do_brew_molecule_p () const
   SCM visibility_sym =get_elt_property (tuplet_visibility_scm_sym);
   if (visibility_sym != SCM_BOOL_F)
     {
+      /*
+	ARG. Fixme.
+       */
+      
       /* Property values:
 	 0       show nothing
 	 1       show number
-- 
2.39.5