max-real ( a b -- c )

Vocabulary

jamshred.tunnel

Inputs

a	an object
b	an object

Outputs

c

an object

Definition

USING: kernel math math.order ;

IN: jamshred.tunnel

: max-real ( a b -- c )
    dup real?
    [ over real? [ max ] [ nip ] if ]
    [ drop dup real? [ drop distant ] unless ] if ;