From eca44bd51b367ac52f68bda9622e10d4538f9c5e Mon Sep 17 00:00:00 2001
From: Nicolas Sceaux <nicolas.sceaux@free.fr>
Date: Wed, 20 Feb 2008 20:09:27 +0100
Subject: [PATCH] Fix ly:score-set-header!, which should not be the same as
 ly:score-header.

---
 lily/score-scheme.cc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
 }
 
 
-- 
2.39.5