X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fidentifier-smob.cc;fp=lily%2Fidentifier-smob.cc;h=3696cf495464be2df7c3e7ed83a7044ca038d8dd;hb=0f26985bb738f1bd3373d3b8bc3dc0980c202169;hp=678cc4a8d076183efeb835a68d3215a62f0a9604;hpb=e0988eeea32b500865c544cf2580e7239f4cea3e;p=lilypond.git

diff --git a/lily/identifier-smob.cc b/lily/identifier-smob.cc
index 678cc4a8d0..3696cf4954 100644
--- 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)
 {