take-comment ( n string slice -- n' string comment )

Vocabulary

modern

Inputs

n	an object
string	an object
slice	an object

Outputs

n'	an object
string	an object
comment	an object

Definition

USING: arrays kernel math modern.slices sequences ;

IN: modern

: take-comment ( n string slice -- n' string comment )
    2over ?nth 91 =
    [ [ 1 + ] 2dip 2over ?nth read-double-matched-bracket ]
    [ [ slice-til-eol drop ] dip swap 2array ] if ;