From b6a3535923f893b4c593203c3421361ae02eba7c Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 16 Aug 2005 15:59:59 +0000
Subject: [PATCH] (get_header): copy module, instead of returning it.

---
 lily/lily-parser.cc | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lily/lily-parser.cc b/lily/lily-parser.cc
index 4e3d6c58cb..059d5a8153 100644
--- a/lily/lily-parser.cc
+++ b/lily/lily-parser.cc
@@ -218,6 +218,12 @@ get_header (Lily_parser *parser)
   SCM id = parser->lexer_->lookup_identifier ("$defaultheader");
   if (!ly_is_module (id))
     id = ly_make_anonymous_module (be_safe_global);
-
+  else
+    {
+      nid = ly_make_anonymous_module (false);
+      ly_module_copy(nid,id);
+      id = nid;
+    }
+  
   return id;
 }
-- 
2.39.2