read-colon ( n string slice -- n' string colon )

Vocabulary

modern

Inputs

n	an object
string	an object
slice	an object

Outputs

n'	an object
string	an object
colon	an object

Definition

USING: combinators kernel sequences ;

IN: modern

: read-colon ( n string slice -- n' string colon )
    {
        { [ dup strict-upper? ] [ read-til-semicolon ] }
        {
            [ dup ":" tail? ]
            [ dup ":" head? [ read-lowercase-colon ] unless ]
        }
        [ ]
    } cond ;