From e1be14cd37e0c6c58284e18c859e334d1b5fa97f Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Sun, 20 Dec 2020 20:10:46 +0200 Subject: Finish fixing +inform, +nancy, for MPFR. --- builtin.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'builtin.c') diff --git a/builtin.c b/builtin.c index afd866ac..2b0f8189 100644 --- a/builtin.c +++ b/builtin.c @@ -4293,7 +4293,7 @@ format_nan_inf(NODE *n, char format) return NULL; else if (is_mpg_float(n)) { if (mpfr_nan_p(n->mpg_numbr)) { - strcpy(buf, mpfr_sgn(n->mpg_numbr) < 0 ? "-nan" : "+nan"); + strcpy(buf, mpfr_signbit(n->mpg_numbr) != 0 ? "-nan" : "+nan"); goto fmt; } else if (mpfr_inf_p(n->mpg_numbr)) { -- cgit v1.2.3