}
else
{
scm_error (scm_arg_type_key, NULL, "Wrong default color: ~S",
scm_list_1 (default_color), scm_list_1 (default_color));
}
}
else
{
scm_error (scm_arg_type_key, NULL, "Wrong default color: ~S",
scm_list_1 (default_color), scm_list_1 (default_color));
}