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

Vocabulary

modern

Inputs

n	an object
string	an object
slice	an object

Outputs

n'	an object
string	an object
lowercase-colon	an object

Definition

USING: arrays kernel sequences sequences.extras ;

IN: modern

: read-lowercase-colon
    ( n string slice -- n' string lowercase-colon )
    dup [ 58 = ] count-tail [
        [ lex-factor ] replicate ensure-no-false dup
        [ token-expected ] unless dup terminator?
        [ unexpected-terminator ] when
    ] curry dip swap 2array ;