trim-row ( seq -- seq' )

Vocabulary

farkup

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: kernel sequences ;

IN: farkup

: trim-row ( seq -- seq' )
    rest dup last empty? [ but-last ] when ;