Run grand-replace (issue 3765)

[lilypond.git] / lily / scheme-listener-scheme.cc

diff --git a/lily/scheme-listener-scheme.cc b/lily/scheme-listener-scheme.cc
index 0b4d39bd9afc42b819c1401ee667f6deebce215c..3a9187c64869799b6df6a07e8ab1b568941d79eb 100644 (file)
--- a/lily/scheme-listener-scheme.cc
+++ b/lily/scheme-listener-scheme.cc
@@ -1,19 +1,30 @@
 /*
-  scheme-listener-scheme.cc -- Connect listeners to Scheme through Scheme_listener
+  This file is part of LilyPond, the GNU music typesetter.
 
-  source file of the GNU LilyPond music typesetter
+  Copyright (C) 2006--2014 Erik Sandberg  <mandolaerik@gmail.com>
 
-  (c) 2006--2008 Erik Sandberg  <mandolaerik@gmail.com>
+  LilyPond is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  LilyPond is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 */
 
 #include "scheme-listener.hh"
 
 LY_DEFINE (ly_make_listener, "ly:make-listener",
-          1, 0, 0, (SCM callback),
-          "Create a listener.  Any time the listener hears an object,"
-          " it will call @var{callback} with that object.\n"
-          "\n"
-          "@var{callback} should take exactly one argument.")
+           1, 0, 0, (SCM callback),
+           "Create a listener.  Any time the listener hears an object,"
+           " it will call @var{callback} with that object.\n"
+           "\n"
+           "@var{callback} should take exactly one argument.")
 {
   LY_ASSERT_TYPE (ly_is_procedure, callback, 1);
   Scheme_listener *l = new Scheme_listener (callback);