+ return scm_from_double (output_scale (b));
+}
+
+/*
+ Cannot put in scope, but need a separate function, since we don't
+ want to allow this in --safe.
+ */
+LY_DEFINE (ly_output_def_parser, "ly:output-def-parser",
+ 1, 0, 0, (SCM odef),
+ "Return the parser where @var{odef} is coming from.")
+{
+ Output_def *b = unsmob_output_def (odef);
+ SCM_ASSERT_TYPE (b, odef, SCM_ARG1, __FUNCTION__, "paper");
+
+ return b->get_parser()->self_scm ();