Contents:

1. Introduction

Introduction to be written.

2. Overview

We just have the form-error function.

Overview

form-error: func [
 "Forms an error message"
 errobj [object!] "Disarmed error"
 /all "Use the same format as the REBOL console"
 
 /local errtype text where
] [
 errtype: system/error/(errobj/type)
 text: errtype/(errobj/id)
 if block? text [text: reform bind text errobj]
 either all [
  where: get in errobj 'where
  rejoin [
   "** " errtype/type ": " text newline
   either :where [join "** Where: " [mold :where newline]] [""]
   either errobj/near [join "** Near: " [mold/only errobj/near newline]] [""]
  ]
 ] [
  text
 ]
]