From aa80d4b0c9b1bbbce53263c07e757b81b718742f Mon Sep 17 00:00:00 2001
From: Steffen Michels <mail@steffen-michels.de>
Date: Mon, 14 Jan 2019 10:28:32 +0100
Subject: [PATCH] use NaN/Infininty constants from StdReal

---
 Libraries/Gast/Gen.icl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Libraries/Gast/Gen.icl b/Libraries/Gast/Gen.icl
index 4c7a431..81489bd 100644
--- a/Libraries/Gast/Gen.icl
+++ b/Libraries/Gast/Gen.icl
@@ -118,8 +118,7 @@ ggen{|Real|} s
 		= takeWhile (\r -> abs r <= toReal (s.maxDepth - s.depth)) l
 		= l
 where
-	//       -nan    nan        inf     -inf
-	l = [0.0,0.0/0.0,~(0.0/0.0),1.0/0.0,-1.0/0.0
+	l = [NaN, ~NaN, Infinity, ~Infinity
 		:interleave
 			[r \\ x <- diag [1:prims] [1:prims] (\n d.toReal n/toReal d), r <- [x,~ x]]
 		(interleave
-- 
GitLab