bin-float-value ( str size -- str' )

Vocabulary

math.parser.private

Inputs

str	an object
size	an object

Outputs

str'

an object

Definition

USING: kernel sequences ;

IN: math.parser.private

: bin-float-value ( str size -- str' )
    48 pad-head [ 48 = ] trim-tail [ "0" ] when-empty
    "1." prepend ;