(ulid) ( same-millisecond? -- ulid )

Vocabulary

ulid.private

Inputs

same-millisecond?

an object

Outputs

ulid

an object

Definition

USING: calendar kernel math namespaces random sequences ulid ;

IN: ulid.private

: (ulid) ( same-millisecond? -- ulid )
    [
        last-time-string get last-random-bits get 1 +
        dup 80-bits > [ ulid-overflow ] when
    ]
    [ now encode-time dup last-time-string set 80 random-bits ]
    if dup last-random-bits set encode-random-bits append ;