edit-each ( seq -- )

Vocabulary

editors

Inputs

seq

an object

Outputs

None

Definition

USING: io kernel prettyprint sequences ;

IN: editors

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