* 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
edit ordinary primitive