From 9824a34d761bab817ab38c49bbba99c2c5ae3b96 Mon Sep 17 00:00:00 2001 From: Mike Beller Date: Sat, 6 Jun 2020 08:55:20 -0400 Subject: [PATCH] Remove dead code. --- src/core/inttypes.c | 2 +- test/suite0.janet | 5 ----- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/src/core/inttypes.c b/src/core/inttypes.c index 28ed0a6f..9a74ae69 100644 --- a/src/core/inttypes.c +++ b/src/core/inttypes.c @@ -287,7 +287,7 @@ static Janet cfun_it_u64_compare(int32_t argc, Janet *argv) { default: break; case JANET_NUMBER : { - double y = round(janet_unwrap_number(argv[1])); + double y = janet_unwrap_number(argv[1]); return janet_wrap_number(compare_uint64_double(x, y)); } case JANET_ABSTRACT: { diff --git a/test/suite0.janet b/test/suite0.janet index 26525fd8..f5fa2a8b 100644 --- a/test/suite0.janet +++ b/test/suite0.janet @@ -386,11 +386,6 @@ (assert (compare= 3 n3 (table/setproto @{:v 3} mynum)) "compare= poly") (assert (deep= (sorted @[4 5 n3 2] compare<) @[2 n3 4 5]) "polymorphic sort")) -# test polymorphic compare with int/u64 and int/s64 -(def MAX_INT_64_STRING "9223372036854775807") -(def MAX_UINT_64_STRING "18446744073709551615") -(def MAX_INT_IN_DBL_STRING "9007199254740991") - (let [ MAX_INT_64_STRING "9223372036854775807" MAX_UINT_64_STRING "18446744073709551615"