strict-upper? ( string -- ? )

Vocabulary

modern

Inputs

string

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit sequences ;

IN: modern

: strict-upper? ( string -- ? )
    { [ ":" sequence= ] [ (strict-upper?) ] } 1|| ;