read-closing ( n string tok -- n' string tok )

Vocabulary

modern.slices

Inputs

n	an object
string	an object
tok	an object

Outputs

n'	an object
string	an object
tok	an object

Definition

USING: kernel math sequences ;

IN: modern.slices

: read-closing ( n string tok -- n' string tok )
    dup length 1 = [ -1 modify-to [ 1 - ] 2dip ] unless ;