From: Nicolas Sceaux <nicolas.sceaux@free.fr>
Date: Wed, 20 Feb 2008 19:09:27 +0000 (+0100)
Subject: Fix ly:score-set-header!, which should not be the same as ly:score-header.
X-Git-Tag: release/2.11.41-1~30
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=eca44bd51b367ac52f68bda9622e10d4538f9c5e;p=lilypond.git

Fix ly:score-set-header!, which should not be the same as ly:score-header.
---

diff --git a/lily/score-scheme.cc b/lily/score-scheme.cc
index 2d54670650..083ef65c06 100644
--- a/lily/score-scheme.cc
+++ b/lily/score-scheme.cc
@@ -72,7 +72,8 @@ LY_DEFINE (ly_score_set_header_x, "ly:score-set-header!",
 		   "module");
   
   Score *sc = unsmob_score (score);
-  return sc->get_header ();
+  sc->set_header (module);
+  return SCM_UNSPECIFIED;
 }