From 0bd4fe9334273d04956aa882d99617039c7f22cc Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 02:03:14 +0000
Subject: [PATCH] lilypond-1.5.14

---
 Documentation/user/internals.itely | 15 ++++++++++++---
 lily/lily-guile.cc                 |  7 -------
 lily/score.cc                      |  2 --
 3 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/Documentation/user/internals.itely b/Documentation/user/internals.itely
index 030961124e..51fc93f048 100644
--- a/Documentation/user/internals.itely
+++ b/Documentation/user/internals.itely
@@ -115,15 +115,17 @@ Type predicate, return true if @var{obj} is an input location.
 @node Moment
 @section Moment
 
-Moment is a rational number. Since GUILE doesn't support them natively,
-so we created our own rational data type.
+Moment is a point in musical time. It is consists of a pair of
+rationals (@var{m},@var{g}), where @var{m} is the timing for the  main
+notes, and @var{g} the timing for  grace notes. In absence of grace
+notes, @var{g} is zero.
 
 @defun moment? obj
 Type predicate, return true if @var{obj} is a moment.
 @end defun
 
 @defun make-moment num den
-create the rational number @var{num}/@var{den}. 
+create the rational number with main timing @var{num}/@var{den}. 
 @end defun
 
 @node Duration
@@ -236,6 +238,13 @@ retrieve the value of @var{sym} from context @var{tr}
 set value of property @var{sym} in context @var{tr} to @var{val}.
 @end defun
 
+@defun Translator::name tr
+Return the type name of the translator @var{tr}.
+@end defun 
+
+@defun Translator::description tr
+Return an alist of properties of  translator @var{tr}.
+@end defun
 
 @node Grobs
 @section Grobs
diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 12b259ea83..e613c2041c 100644
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -115,12 +115,6 @@ ly_quote_scm (SCM s)
 }
 
 
-SCM
-ly_symbol2scm (const char *s)
-{
-  return gh_symbol2scm ((char *)s);
-}
-
 
 String
 ly_symbol2string (SCM s)
@@ -167,7 +161,6 @@ void
 read_lily_scm_file (String fn)
 {
   gh_eval_str ((char *) gulp_file_to_string (fn).ch_C ());
-  //  scm_c_eval_string ((char *) gulp_file_to_string (fn).ch_C ());
 }
 
 extern "C" {
diff --git a/lily/score.cc b/lily/score.cc
index 024810c1b5..9cc2f6d0c6 100644
--- a/lily/score.cc
+++ b/lily/score.cc
@@ -51,9 +51,7 @@ Score::Score (Score const &s)
   /*
     TODO: this is not very elegant.... 
    */
-  /*  store_locations_global_b = (scm_c_eval_string ("point-and-click") !=  SCM_BOOL_F);*/
   store_locations_global_b = (gh_eval_str ("point-and-click") !=  SCM_BOOL_F);
-      
 
   Music * m =unsmob_music (s.music_);
   music_ =  m?m->clone ()->self_scm () : SCM_EOL;
-- 
2.39.5