trim-whitespace ( seq -- seq' )

Vocabulary

help.syntax.private

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: ascii kernel math sequences ;

IN: help.syntax.private

: trim-whitespace ( seq -- seq' )
    dup rest-slice dup whitespace
    [ [ index-or-length tail ] curry map! ] unless-zero drop
    0 over [ [ blank? ] trim-head ] change-nth ;