}
else
{
scm_error (scm_arg_type_key, NULL, "Wrong material flag: ~S",
scm_list_1 (material_flag), scm_list_1 (material_flag));
}
}
else
{
scm_error (scm_arg_type_key, NULL, "Wrong material flag: ~S",
scm_list_1 (material_flag), scm_list_1 (material_flag));
}