From 74c0844101cce8f12267e5a682e155d627f30140 Mon Sep 17 00:00:00 2001 From: Sorawee Porncharoenwase Date: Thu, 12 Mar 2020 03:45:04 -0700 Subject: [PATCH] Also fix ~.a in 3m --- racket/src/racket/src/print.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/racket/src/print.c b/racket/src/racket/src/print.c index 127bdab391..24721277fd 100644 --- a/racket/src/racket/src/print.c +++ b/racket/src/racket/src/print.c @@ -1134,7 +1134,7 @@ print_to_string(Scheme_Object *obj, params.uq_ht = uq_ht; - if ((maxl <= PRINT_MAXLEN_MIN) + if ((maxl < PRINT_MAXLEN_MIN) || !scheme_setjmp(escape)) print(obj, write, 0, ht, NULL, (PrintParams *)¶ms); @@ -1229,7 +1229,7 @@ static void print_this_string(PrintParams *pp, const char *str, int offset, int SCHEME_USE_FUEL(len); - if (pp->print_maxlen > PRINT_MAXLEN_MIN) { + if (pp->print_maxlen >= PRINT_MAXLEN_MIN) { if (pp->print_position > pp->print_maxlen) { intptr_t l = pp->print_maxlen;