* input/regression/music-head.ly (texidoc): new file.

[lilypond.git] / lily / identifier-smob.cc

diff --git a/lily/identifier-smob.cc b/lily/identifier-smob.cc
index 678cc4a8d076183efeb835a68d3215a62f0a9604..3696cf495464be2df7c3e7ed83a7044ca038d8dd 100644 (file)
--- a/lily/identifier-smob.cc
+++ b/lily/identifier-smob.cc
@@ -8,13 +8,10 @@ source file of the GNU LilyPond music typesetter
 
 */
 #include "identifier-smob.hh"
-/*
-  C&P from example/box.c
- */
+
 
 scm_t_bits package_tag;
 
-/* Print a textual represenation of the smob to a given port.  */
 static int
 print_box (SCM b, SCM port, scm_print_state *)
 {
@@ -34,14 +31,10 @@ print_box (SCM b, SCM port, scm_print_state *)
 LY_DEFINE (package_identifier, "ly:export", 1,0,0, (SCM arg),
          "Export a Scheme object to the parser, so it is treated as an identifier.")
 {
-  /* This macro creates the new objects, stores the value `#f' into it
-     and returns it to the caller.  */
   SCM_RETURN_NEWSMOB (package_tag, arg);
 }
 
 
-/* This is the primitive `box-ref' which returns the object stored in
-   the box.  */
 SCM
 unpack_identifier (SCM box)
 {