same-millisecond? ( -- ? )

Vocabulary

ulid.private

Inputs

None

Outputs

?

an object

Definition

USING: kernel math namespaces system ;

IN: ulid.private

: same-millisecond? ( -- ? )
    nano-count 1000000 /i dup \ same-millisecond? get =
    [ drop t ] [ \ same-millisecond? set f ] if ;