Skip to content

Commit f7e3c63

Browse files
authored
Merge pull request rmanohar#29 from jakobj/fix/set-avoid-int
Looks good, now that negative bigints are read correctly.
2 parents 6f0b8a2 + 8ec0358 commit f7e3c63

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

main.cc

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -774,8 +774,7 @@ int process_set (int argc, char **argv)
774774
else if (type == 1) {
775775
BigInt *otmp = glob_sim->getInt (offset);
776776
BigInt rd = BigInt::sscan (argv[2]);
777-
val = atoi (argv[2]);
778-
if (val < 0) {
777+
if (rd.isNegative()) {
779778
fprintf (stderr, "Integers are unsigned.\n");
780779
return LISP_RET_ERROR;
781780
}

0 commit comments

Comments
 (0)