squish-strings ( seq -- seq' )

Vocabulary

sequences.squish

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: combinators.short-circuit kernel math sequences ;

IN: sequences.squish

: squish-strings ( seq -- seq' )
    [ { [ sequence? ] [ integer? not ] } 1&& ] "" squish ;