* EDIT-ERROR ( -- ) if an error occured, this routine can be called to invoke an appropriate EDITOR (see also EDIT-BLOCK)
EDIT-ERROR
( -- )
EDITOR
EDIT-BLOCK
EXTENSIONS edit ordinary primitive