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

Vocabulary

math.parser.private

Inputs

m	an object
n/f	an object

Outputs

m+n/f

an object

Definition

USING: kernel math ;

IN: math.parser.private

: ?add-ratio ( m n/f -- m+n/f )
    dup real? [ + ] [ 2drop f ] if ; inline