add-ratio? ( n/f -- ? )

Vocabulary

math.parser.private

Inputs

n/f

an object

Outputs

?

an object

Definition

USING: kernel math ;

IN: math.parser.private

: add-ratio? ( n/f -- ? )
    dup real? [ dup >integer number= not ] [ drop f ] if ;