mirrors
/
janet
mirror of https://github.com/janet-lang/janet
1
0
Fork 0
Code Issues 1 Releases Wiki Activity

Remove dead code.

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:
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: {

5
test/suite0.janet
View File

@ -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"