Skip to content

GitLab

Commit bfbe79bc authored by Mart Lubbers's avatar Mart Lubbers
Browse files
Options

Merge branch 'realConsts' into 'master' 

use NaN/Infininty constants from StdReal

See merge request !25
parents 5a02237f aa80d4b0
Pipeline #17705 passed with stage
    in 46 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 2 deletions
    Libraries/Gast/Gen.icl
    View file @ bfbe79bc
    ......@@ -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
    ......
    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