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