Skip to content

Commit

Permalink
logical inversion
Browse files Browse the repository at this point in the history
  • Loading branch information
MichaelChirico committed Nov 26, 2024
1 parent c340d1d commit 545b78b
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/utils.c
Original file line number Diff line number Diff line change
Expand Up @@ -23,7 +23,7 @@ bool isRealReallyInt32(SEXP x) {
(within_int32_repres(dx[i]) && dx[i]==(int)(dx[i])))) {
i++;
}
return i!=n;
return i==n;
}

SEXP isRealReallyInt32R(SEXP x) {
Expand All @@ -40,7 +40,7 @@ bool isRealReallyInt64(SEXP x) {
(within_int64_repres(dx[i]) && dx[i]==(int64_t)(dx[i])))) {
i++;
}
return i!=n;
return i==n;
}

SEXP isRealReallyInt64R(SEXP x) {
Expand Down

0 comments on commit 545b78b

Please sign in to comment.