#include "warn.hh"
#include "stencil.hh"
-
-
LY_DEFINE (ly_make_paper_outputter, "ly:make-paper-outputter",
2, 0, 0, (SCM port, SCM format),
"Create an outputter that evaluates within "
String f = ly_scm2string (format);
String output_name = "<unknown>";
-
+
SCM port_name = scm_port_filename (port);
if (scm_is_string (port_name))
output_name = ly_scm2string (port_name);
-
+
message (_f ("Layout output to `%s'...",
output_name.to_str0 ()));
progress_indication ("\n");
Paper_outputter *po = new Paper_outputter (port, f);
- scm_gc_unprotect_object (po->self_scm ());
+ po->unprotect ();
return po->self_scm ();
}