nan-max ( a b -- c )

Vocabulary

arrays.shaped.private

Inputs

a	an object
b	an object

Outputs

c

an object

Definition

USING: kernel math math.order ;

IN: arrays.shaped.private

: nan-max ( a b -- c )
    2dup [ fp-nan? ] either? [ 2drop 0/0. ] [ max ] if ;