- char* type = scm_to_utf8_stringn (scm_symbol_to_string (primitive_type), NULL);
- if (!strcmp (type, "points"))
+ char* type_name = scm_to_utf8_string (scm_symbol_to_string (primitive_type));
+ scene::E_PRIMITIVE_TYPE type;
+
+ if (!strcmp (type_name, "points"))
}
else
{
scm_error (scm_arg_type_key, NULL, "Wrong primitive type: ~S",
scm_list_1 (primitive_type), scm_list_1 (primitive_type));
}
}
else
{
scm_error (scm_arg_type_key, NULL, "Wrong primitive type: ~S",
scm_list_1 (primitive_type), scm_list_1 (primitive_type));
}