trim-before-newline ( seq -- seq' )

Vocabulary

modern.out

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: kernel sequences ;

IN: modern.out

: trim-before-newline ( seq -- seq' )
    dup [ 32 = not ] find { 13 10 } member?
    [ tail-slice ] [ drop ] if ;