subsystem ( str -- str' )

Vocabulary

format-using

Inputs

str

an object

Outputs

str'

an object

Definition

USING: kernel sequences ;

IN: format-using

: subsystem ( str -- str' )
    dup [ 46 = ] find [ head ] [ drop ] if ;