Fix #2986: error-print-width 3 shouldn't error

This commit is contained in:
sorawee 2019-12-28 12:48:50 -08:00 committed by Matthew Flatt
parent c52d45613b
commit 8f286fc810

View File

@ -3049,7 +3049,7 @@ static Scheme_Object *good_print_width(int c, Scheme_Object **argv)
int ok;
ok = (SCHEME_INTP(argv[0])
? (SCHEME_INT_VAL(argv[0]) > 3)
? (SCHEME_INT_VAL(argv[0]) >= 3)
: (SCHEME_BIGNUMP(argv[0])
? SCHEME_BIGPOS(argv[0])
: 0));