return op->parent_ ? op->parent_->self_scm () : SCM_EOL;
}
+LY_DEFINE (ly_output_def_set_variable_x, "ly:output-def-set-variable!",
+ 3, 0, 0, (SCM def, SCM sym, SCM val),
+ "Set an output definition @var{def} variable @var{sym} to @var{val}.")
+{
+ LY_ASSERT_SMOB (Output_def, def, 1);
+ Output_def *output_def = unsmob_output_def (def);
+ LY_ASSERT_TYPE (ly_is_symbol, sym, 2);
+ output_def->set_variable (sym, val);
+ return SCM_UNSPECIFIED;
+}
+
LY_DEFINE (ly_output_def_clone, "ly:output-def-clone",
1, 0, 0, (SCM def),
"Clone output definition @var{def}.")
(SCM layout_smob, SCM name),
"Return the layout variable @var{name}.")
{
-
LY_ASSERT_SMOB (Output_def, layout_smob, 1);
Output_def *layout = unsmob_output_def (layout_smob);
return scm_from_double (layout->get_dimension (name));