(leap) ( leap -- string/f )

Vocabulary

ntp.private

Inputs

leap

an object

Outputs

string/f

an object

Definition

USING: combinators kernel ;

IN: ntp.private

: (leap) ( leap -- string/f )
    {
        { 0 [ "no warning" ] }
        { 1 [ "last minute has 61 seconds" ] }
        { 2 [ "last minute has 59 seconds" ] }
        { 3 [ "alarm condition (clock not synchronized)" ] }
        [ drop f ]
    } case ;