(time) ( sequence -- timestamp )

Vocabulary

ntp.private

Inputs

sequence

an object

Outputs

timestamp

an object

Definition

USING: calendar kernel math sequences ;

IN: ntp.private

: (time) ( sequence -- timestamp )
    [ first ] [ second 32 2^ / ] bi +
    seconds 1900 1 1 0 0 0 instant <timestamp> time+ ;