EDIT-ERROR
* EDIT-ERROR ( -- )

if an error occured, this routine can be called to invoke
an appropriate EDITOR (see also >EDIT-BLOCK)

edit ordinary primitive