diff options
Diffstat (limited to 'src/interp/diagnostics.boot')
| -rw-r--r-- | src/interp/diagnostics.boot | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/interp/diagnostics.boot b/src/interp/diagnostics.boot index 2e5163ac..b02f5eb2 100644 --- a/src/interp/diagnostics.boot +++ b/src/interp/diagnostics.boot @@ -53,3 +53,15 @@ BUMPERRORCOUNT kind == kind = "semantic" => 2 ERROR '"BUMPERRORCOUNT: unknown error kind" $SPAD__ERRORS.index := 1 + $SPAD__ERRORS.index + +FAIL() == + systemError '"Antique error (FAIL ENTERED)" + +ERRHUH() == + systemError '"problem with BOOT to LISP translation" + +MOAN(:x) == + sayBrightly ['"%l", '"===> ", :x, '"%l"] + +THETA__ERROR op == + userError ['"Sorry, do not know the identity element for ", op] |