FUNCTION has_error, error, prefix=prefix
;
   ON_ERROR, 2
   estatus = error NE '' 
   IF N_ELEMENTS(prefix) EQ 0 THEN prefix = ''
   IF estatus THEN xack, [prefix, error], /modal
   RETURN, estatus
END

;---------------------------------------------------------------------------
; End of 'has_error.pro'.
;---------------------------------------------------------------------------