write-number ( num -- )

Vocabulary

pbrt.private

Inputs

num

an object

Outputs

None

Definition

USING: io kernel math math.parser ;

IN: pbrt.private

: write-number ( num -- )
    dup integer?
    [ number>string ] [
        dup >integer >float over =
        [ >integer number>string ] [ number>string ] if
    ] if write ;