slice-before ( slice -- slice' )

Vocabulary

modern.slices

Inputs

slice

an object

Outputs

slice'

an object

Definition

USING: accessors kernel sequences ;

IN: modern.slices

: slice-before ( slice -- slice' )
    [ drop 0 ] [ from>> ] [ seq>> ] tri <slice> ;