(get_header): copy module, instead of

returning it.

diff --git a/lily/lily-parser.cc b/lily/lily-parser.cc
index 4e3d6c58cba621597db4fdc90382938f8dd44246..059d5a8153d945e9d6066c26497d2eab630b6bab 100644 (file)
--- 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;
 }