+SCM
+get_header (Lily_parser *parser)
+{
+ SCM id = parser->lexer_->lookup_identifier ("$defaultheader");
+ if (!ly_is_module (id))
+ id = parser->make_scope ();
+ else
+ {
+ SCM nid = parser->make_scope ();
+ ly_module_copy (nid, id);
+ id = nid;
+ }
+
+ return id;
+}
+
+SCM
+Lily_parser::make_scope () const
+{
+ SCM module = ly_make_anonymous_module (be_safe_global);
+ return module;
+}