<listing-tool> ( path -- listing-tool )

Vocabulary

tools.files

Inputs

path

an object

Outputs

listing-tool

an object

Definition

USING: accessors kernel ;

IN: tools.files

: <listing-tool> ( path -- listing-tool )
    listing-tool new swap >>path { +file-name+ } >>specs ;