From 5caa114564798e0a16f503e393d35a65554da03d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 10 Jun 2012 06:57:28 +0800 Subject: [PATCH] fix `print-syntax-width' for +inf.0 Closes PR 12837 --- collects/tests/racket/print.rktl | 5 ++++- src/racket/src/read.c | 4 ++-- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/tests/racket/print.rktl b/collects/tests/racket/print.rktl index fd756b337d..e0c10613b0 100644 --- a/collects/tests/racket/print.rktl +++ b/collects/tests/racket/print.rktl @@ -243,7 +243,10 @@ (test #f regexp-match? (regexp-quote (path->bytes super)) (get-output-string o)))) (loop super))))) - +;; ---------------------------------------- +;; make sure +inf.0 is ok for `print-syntax-width': +(parameterize ([print-syntax-width +inf.0]) + (test +inf.0 print-syntax-width)) ;; ---------------------------------------- diff --git a/src/racket/src/read.c b/src/racket/src/read.c index 629b1bba21..45307291a9 100644 --- a/src/racket/src/read.c +++ b/src/racket/src/read.c @@ -742,8 +742,8 @@ static Scheme_Object *good_syntax_width(int c, Scheme_Object **argv) || !SCHEME_INT_VAL(argv[0])) : (SCHEME_BIGNUMP(argv[0]) ? SCHEME_BIGPOS(argv[0]) - : (SCHEME_FLTP(argv[0]) - ? MZ_IS_POS_INFINITY(SCHEME_FLT_VAL(argv[0])) + : (SCHEME_DBLP(argv[0]) + ? MZ_IS_POS_INFINITY(SCHEME_DBL_VAL(argv[0])) : 0))); return ok ? scheme_true : scheme_false;