edit-each ( seq -- )

Vocabulary

editors

Inputs

seq

an object

Outputs

None

Definition

USING: io kernel prettyprint sequences ;

IN: editors

: edit-each ( seq -- )
    "RETURN moves on to the next usage, C+d stops." print
    [ [ "Editing " write . ] [ flush ?edit readln ] bi ] all?
    drop ;