#include "scm-hash.hh"
#include "lily-version.hh"
#include "paper-def.hh"
-#include "file-results.hh"
+#include "input-file-results.hh"
+#include "ly-modules.hh"
+
/*
}
void
-Paper_outputter::output_scope (Scheme_hash_table *scope, String prefix)
+Paper_outputter::output_scope (SCM mod, String prefix)
{
- SCM al = scope->to_alist ();
+ if (!SCM_MODULEP (mod))
+ return ;
+
+ SCM al = ly_module_to_alist (mod);
for (SCM s = al ; gh_pair_p (s); s = ly_cdr (s))
{
SCM k = ly_caar (s);
}
void
-Paper_outputter::write_header_fields_to_file (Scheme_hash_table * header)
+Paper_outputter::write_header_fields_to_file (SCM mod)
{
- if (dump_header_fieldnames_global.size ())
+ if (ly_module_p (mod)&&
+ dump_header_fieldnames_global.size ())
{
- SCM fields = header->to_alist ();
+ SCM fields = ly_module_to_alist (mod);
for (int i = 0; i < dump_header_fieldnames_global.size (); i++)
{
String key = dump_header_fieldnames_global[i];