comments

diff --git a/lily/includable-lexer.cc b/lily/includable-lexer.cc
index e8de059808ffa0e6ef686060362542098b340aa7..34c33a3b44c485834e3c46736b432e3a85b7c961 100644 (file)
--- a/lily/includable-lexer.cc
+++ b/lily/includable-lexer.cc
@@ -76,6 +76,9 @@ Includable_lexer::new_input (String s, Sources  * global_sources)
 
 }
 
+/*
+  Unused.
+ */
 void
 Includable_lexer::new_input (String name, String data, Sources* sources)
 {

diff --git a/lily/source-file.cc b/lily/source-file.cc
index 2b9bf76081146aacc4a70d1f546bf9cd00eeedd8..a4b30bf16e8c7b4722bf5a28eaaa1ea4438c2cea 100644 (file)
--- a/lily/source-file.cc
+++ b/lily/source-file.cc
@@ -72,15 +72,12 @@ gulp_file (String fn, int* len)
   return str;
 }
 
-
+/*
+  Unused.
+ */
 Source_file::Source_file (String filename, String data)
 {
-#if 1
-  #warning FILENAME junked.  If intentional, add comment here.
-  name_string_ = "";
-#else
   name_string_ = filename;
-#endif
   istream_ = 0;
   contents_str0_ = data.get_copy_str0();
   length_ = data.length();

diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index bcd39fd14f6c1f00c7d7c8c392d936f62ccfcc9b..41d7f32cf2d76c2ff234185857d7258f91c48f94 100644 (file)
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -37,10 +37,12 @@ TODO:
 happen earlier (during interpreting), brew-molecule () should only
 dump reinterpret the markup as a molecule.
 
- [* naming chord::... ; this is scheme not C++]
- (yes - constructive naming suggestion here)
+  *  chord:: prefix is a poor-man's namespace device.
+  We have a module system to prevent export to userland.
+  Nested functions can take care of many other clashes. --hwn.
+
+   * easier tweakability:
 
- * easier tweakability:
     - split chord::names-alists up into logical bits,
       such as chord::exceptions-delta, exceptions-oslash
     - iso just the 'style parameter, use a list, eg:
@@ -122,6 +124,7 @@ dump reinterpret the markup as a molecule.
                            (string-append "accidentals-"
                                           (number->string acc))))))
 
+; unused.
 (define (accidental->markupp acc pos)
 
   (if (= acc 0)
@@ -138,11 +141,14 @@ dump reinterpret the markup as a molecule.
              (make-line-markup (list (make-sub-markup acc-markup))))))))
 
 
+; unused.
+
 ;; FIXME: possibly to be used for american/jazz style
 ;; However, only pos == columns is used, which seems to do
 ;; exactly what accidental->markup does...
 (define (amy-accidental->text acc) (accidental->textp acc 'columns))
 
+
 ;; These not used
 ;;;(define (accidental->text-super acc) (accidental->textp acc 'simple-super))
 ;;(define (accidental->text-super acc) (accidental->textp acc 'super))