listing-time ( timestamp -- string )

Vocabulary

tools.files.private

Inputs

timestamp

an object

Outputs

string

an object

Definition

USING: accessors kernel math.parser sequences ;

IN: tools.files.private

: listing-time ( timestamp -- string )
    [ hour>> ] [ minute>> ] bi
    [ number>string 2 48 pad-head ] bi@ ":" glue ;