Removed unnecessary type checks

This commit is contained in:
Justin Ethier 2017-08-22 17:55:22 +00:00
parent 8e8e07c3b3
commit a5dfcc2f85

View file

@ -1972,7 +1972,6 @@ object Cyc_string2number_(void *data, object cont, object str)
int result, rv; int result, rv;
double n; double n;
char *s; char *s;
Cyc_check_obj(data, string_tag, str);
Cyc_check_str(data, str); Cyc_check_str(data, str);
if (type_of(str) == string_tag && ((string_type *) str)->str) { if (type_of(str) == string_tag && ((string_type *) str)->str) {
s = ((string_type *) str)->str; s = ((string_type *) str)->str;
@ -2077,7 +2076,6 @@ object Cyc_string_append(void *data, object cont, int _argc, object str1, ...)
object Cyc_string_length(void *data, object str) object Cyc_string_length(void *data, object str)
{ {
Cyc_check_obj(data, string_tag, str);
Cyc_check_str(data, str); Cyc_check_str(data, str);
return obj_int2obj(string_len(str)); return obj_int2obj(string_len(str));
} }