aboutsummaryrefslogtreecommitdiff
path: root/src/interp/msg.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/msg.boot')
-rw-r--r--src/interp/msg.boot23
1 files changed, 23 insertions, 0 deletions
diff --git a/src/interp/msg.boot b/src/interp/msg.boot
index 1e419b72..1bbae560 100644
--- a/src/interp/msg.boot
+++ b/src/interp/msg.boot
@@ -36,6 +36,29 @@ import '"sys-macros"
import '"astr"
)package "BOOT"
+$erLocMsgDatabaseName := pathname '(co_-eng msgs a)
+$erGlbMsgDatabaseName := pathname '(co_-eng msgs i)
+$newcompErrorCount := 0
+
+$imPrTagGuys == ['unimple, 'bug, 'debug, 'say, 'warn]
+$toWhereGuys == ['fileOnly, 'screenOnly ]
+$imPrGuys == ['imPr]
+$repGuys == ['noRep, 'rep]
+$attrCats == ['$imPrGuys, '$toWhereGuys, '$repGuys]
+
+$LINELENGTH := 80
+$preLength := 11
+$LOGLENGTH := $LINELENGTH - 6
+$specificMsgTags := []
+$showKeyNum := NIL
+
+$compErrorPrefix := '"Error"
+$compBugPrefix := '"Bug!"
+
+$ncMsgList := []
+
+--%
+
ListMember?(ob, l) ==
MEMBER(ob, l, KEYWORD::TEST, function EQUAL)