From d80a585fa903c681f5740e668380675e0f98171c Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 4 Jan 2003 13:28:13 +0000
Subject: [PATCH] comments

---
 lily/includable-lexer.cc |  3 +++
 lily/source-file.cc      |  9 +++------
 scm/chord-name.scm       | 12 +++++++++---
 3 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/lily/includable-lexer.cc b/lily/includable-lexer.cc
index e8de059808..34c33a3b44 100644
--- 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 2b9bf76081..a4b30bf16e 100644
--- 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 bcd39fd14f..41d7f32cf2 100644
--- 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))
-- 
2.39.5