From a5dfcc2f856d18c4a57a34189b4823d06c66b627 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 22 Aug 2017 17:55:22 +0000 Subject: [PATCH] Removed unnecessary type checks --- runtime.c | 2 -- 1 file changed, 2 deletions(-) diff --git a/runtime.c b/runtime.c index 0075bd19..4b81f15b 100644 --- a/runtime.c +++ b/runtime.c @@ -1972,7 +1972,6 @@ object Cyc_string2number_(void *data, object cont, object str) int result, rv; double n; char *s; - Cyc_check_obj(data, string_tag, str); Cyc_check_str(data, str); if (type_of(str) == string_tag && ((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) { - Cyc_check_obj(data, string_tag, str); Cyc_check_str(data, str); return obj_int2obj(string_len(str)); }