#include "warn.hh"
bool debug_skylines;
+bool debug_property_callbacks;
+bool debug_page_breaking_scoring;
/*
Backwards compatibility.
debug_skylines = to_boolean (val);
val = scm_from_bool (to_boolean (val));
}
+ else if (var == ly_symbol2scm ("debug-property-callbacks"))
+ {
+ debug_property_callbacks = to_boolean (val);
+ val = scm_from_bool (to_boolean (val));
+ }
+ else if (var == ly_symbol2scm ("debug-page-breaking-scoring"))
+ {
+ debug_page_breaking_scoring = to_boolean (val);
+ val = scm_from_bool (to_boolean (val));
+ }
}
-
-bool
-get_program_option (const char *s)
-{
- SCM sym = ly_symbol2scm (s);
-
- return to_boolean (ly_get_option (sym));
-}
-
-
ssize const HELP_INDENT = 30;
ssize const INDENT = 2;
ssize const SEPARATION = 5;
{
option_hash = scm_permanent_object (scm_c_make_hash_table (11));
}
- LY_ASSERT_FIRST_TYPE (ly_is_symbol, sym);
- LY_ASSERT_TYPE (scm_is_string, 3);
+ LY_ASSERT_TYPE (ly_is_symbol, sym, 1);
+ LY_ASSERT_TYPE (scm_is_string, description, 3);
internal_set_option (sym, val);
LY_DEFINE (ly_set_option, "ly:set-option", 1, 1, 0, (SCM var, SCM val),
"Set a program option.")
{
- LY_ASSERT_FIRST_TYPE(ly_is_symbol, var);
+ LY_ASSERT_TYPE (ly_is_symbol, var, 1);
if (val == SCM_UNDEFINED)
val = SCM_BOOL_T;
LY_DEFINE (ly_get_option, "ly:get-option", 1, 0, 0, (SCM var),
"Get a global option setting.")
{
- LY_ASSERT_FIRST_TYPE(ly_is_symbol, var);
+ LY_ASSERT_TYPE (ly_is_symbol, var, 1);
return scm_hashq_ref (option_hash, var, SCM_BOOL_F);
}
+
+