->numerator ( i number-parse n -- n/f )

Vocabulary

math.parser.private

Inputs

i	an object
number-parse	an object
n	an object

Outputs

n/f

an object

Definition

USING: kernel.private math ;

IN: math.parser.private

: ->numerator ( i number-parse n -- n/f )
    { fixnum number-parse integer } declare @split
    [ @num-digit ] require-next-digit ?add-ratio ;