slice-til-eol ( n string -- n' string slice/f ch/f )


Vocabulary
modern.slices

Inputs
nan object
stringan object


Outputs
n'an object
stringan object
slice/fan object
ch/fan object


Definition


:: slice-til-eol ( n string -- n' string slice/f ch/f )
n [
n string [ "\r\n" member? ] find-from
:> ( n' ch ) n' string n n' string ?<slice> ch
] [ n string string empty-slice-end f ] if ; inline