From 4d7abf3b8c4a442f283df6aa586686c18f31324e Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 21 Feb 2017 04:32:07 -0500 Subject: [PATCH] Fix to coerce inf result --- scheme/read.sld | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/read.sld b/scheme/read.sld index 681428ed..8dbb9282 100644 --- a/scheme/read.sld +++ b/scheme/read.sld @@ -593,7 +593,7 @@ (string->number (list->string a)) (if (or (equal? a '(#\+ #\i #\n #\f #\. #\0)) (equal? a '(#\- #\i #\n #\f #\. #\0))) - (expt 2 1000000) + (expt 2.0 1000000) (if (or (equal? a '(#\+ #\n #\a #\n #\. #\0)) (equal? a '(#\- #\n #\a #\n #\. #\0))) (/ 0.0 0.0)