;
; error.sh
;
; Generation and handling of errors
;
; © 1995 Straylight
;

;----- Overview -------------------------------------------------------------
;
; Functions provided:
;
;  error_report
;  error_reportReal

		[	:LNOT::DEF:error__dfn
		GBLL	error__dfn

; --- error_report ---
;
; On entry:	R0 == error number
;
; On exit:	doesn't -- reports error to Termite
;
; Use:		Reports an error, attaching the error number etc. and
;		terminating the script.

		IMPORT	error_report

; --- error_reportReal ---
;
; On entry:	R0 == error block
;
; On exit:	doesn't -- reports error to Termite
;
; Use:		Reports an error, attaching the error number etc. and
;		terminating the script.

		IMPORT	error_reportReal

		]

;----- That's all, folks ----------------------------------------------------

		END