From f0d353558ee5e8394cd1fef535a40ed87044522f Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Mon, 4 Dec 2006 05:19:33 +0000
Subject: [PATCH] Check for NaN/infinite values in s48_double_to_bignum

---
 vm/bignum.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/vm/bignum.c b/vm/bignum.c
index 3e06623827..aeab6c40ba 100644
--- a/vm/bignum.c
+++ b/vm/bignum.c
@@ -421,6 +421,7 @@ s48_bignum_to_double(bignum_type bignum)
 bignum_type
 s48_double_to_bignum(double x)
 {
+  if (!isnormal(x)) return (BIGNUM_ZERO ());
   int exponent;
   double significand = (frexp (x, (&exponent)));
   if (exponent <= 0) return (BIGNUM_ZERO ());