mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-26 00:10:27 +00:00
Code Issues 1 Releases Wiki Activity

Remove dead code.

Browse Source
This commit is contained in:
Mike Beller 2020-06-06 08:55:20 -04:00
parent 76c3436377
commit 9824a34d76
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/core/inttypes.c
View File

@ -287,7 +287,7 @@ static Janet cfun_it_u64_compare(int32_t argc, Janet *argv) {
default: default:
break; break;
case JANET_NUMBER : { 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)); return janet_wrap_number(compare_uint64_double(x, y));
} }
case JANET_ABSTRACT: { case JANET_ABSTRACT: {

5
test/suite0.janet
View File

@ -386,11 +386,6 @@
(assert (compare= 3 n3 (table/setproto @{:v 3} mynum)) "compare= poly") (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")) (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 [ (let [
MAX_INT_64_STRING "9223372036854775807" MAX_INT_64_STRING "9223372036854775807"
MAX_UINT_64_STRING "18446744073709551615" MAX_UINT_64_STRING "18446744073709551615"