+SCM
+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
+ {
+ SCM nid = ly_make_anonymous_module (false);
+ ly_module_copy(nid,id);
+ id = nid;
+ }
+
+ return id;
+}