Fix #2986: error-print-width 3 shouldn't error
This commit is contained in:
parent
c52d45613b
commit
8f286fc810
|
@ -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));
|
||||
|
|
Loading…
Reference in New Issue
Block a user