Commit ac1ade36 authored by John van Groningen's avatar John van Groningen

remove isFinite, because it was added to module StdReal

parent d9206533
......@@ -35,11 +35,6 @@ instance gMap {!}
:: Either a b = Left a | Right b
// extensions for StdReal
isFinite :: !Real -> Bool
// only not-a-number and the two infinite values are not finite
// extensions for StdInt
roundupToMultiple s m :== (s + (m-1)) bitand (~m)
......
......@@ -34,12 +34,6 @@ instance gMap {!}
where
gMap f a = { f el \\ el<-:a }
inf =: 1.0/0.0
minus_inf =: (-1.0)/0.0
isFinite :: !Real -> Bool
isFinite r = minus_inf<r && r<inf
roundupToMultiple s m :== (s + (m-1)) bitand (~m)
// extensions for StdFunc
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment