store-exponent ( float-parse n expt -- float-parse' n )

Vocabulary

math.parser.private

Inputs

float-parse	an object
n	an object
expt	an object

Outputs

float-parse'	an object
n	an object

Definition

USING: accessors kernel ;

IN: math.parser.private

: store-exponent ( float-parse n expt -- float-parse' n )
    swap [ >>exponent ] dip ; inline