diff --git a/Libraries/Gast/Gen.icl b/Libraries/Gast/Gen.icl index 4c7a431e4113a43ef18b9cbc7a7033c5c59b70fa..81489bd75c8add608ff18a713eaa159c466ccd70 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