From 826e7895ae1b6e16934e60fb3c919a95ed8dd6fd Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 22 Jul 2021 17:16:53 -0400
Subject: [PATCH] Issue #433 - Special case, denominator of 0 is 1

---
 runtime.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/runtime.c b/runtime.c
index b40dea56..bf8f48fa 100644
--- a/runtime.c
+++ b/runtime.c
@@ -8441,7 +8441,11 @@ void Cyc_get_ratio(void *data, object cont, object n, int numerator)
     Cyc_rt_raise2(data, "Unable to convert to ratio", n);
   }
 
-  {
+  if (!numerator && d == 0.0) {
+    // Special case
+    make_double(val, 1.0);
+    return_closcall1(data, cont, &val);
+  } else {
     double numer, denom;
     make_double(val, 0.0);
     num2ratio(d, &numer, &denom);