From f1862546c55f363d0ca1eb874e5ce1f1a5e092aa Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 16 Feb 2023 20:37:24 -0500
Subject: Handle infinite float value.

---
 chickadee/graphics/seagull.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/chickadee/graphics/seagull.scm b/chickadee/graphics/seagull.scm
index 44a9bd9..58fe04b 100644
--- a/chickadee/graphics/seagull.scm
+++ b/chickadee/graphics/seagull.scm
@@ -2397,7 +2397,8 @@
 (define (emit:float n stage version port level)
   (define temp (unique-identifier))
   (indent level port)
-  (format port "float ~a = ~a;\n" temp n)
+  (format port "float ~a = ~a;\n" temp
+          (if (inf? n) "1.0 / 0.0" n))
   (list temp))
 
 (define (emit:boolean b stage version port level)
-- 
cgit v1.2.3