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