diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
| commit | 42cf0984b569e49060252e536c0c7e7aee469873 (patch) | |
| tree | c2cb31c68df04f75bfd9a490ae10b9c6cf795102 /src/interp/msg.boot | |
| parent | 5770442f576aa0c1e389344a636f1e4edca1b136 (diff) | |
| download | open-axiom-42cf0984b569e49060252e536c0c7e7aee469873.tar.gz | |
* More cleanup
Diffstat (limited to 'src/interp/msg.boot')
| -rw-r--r-- | src/interp/msg.boot | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/interp/msg.boot b/src/interp/msg.boot index 2bd735a8..4e4c8542 100644 --- a/src/interp/msg.boot +++ b/src/interp/msg.boot @@ -50,7 +50,7 @@ $LINELENGTH := 80 $preLength := 11 $LOGLENGTH := $LINELENGTH - 6 $specificMsgTags := [] -$showKeyNum := NIL +$showKeyNum := nil $compErrorPrefix := '"Error" $compBugPrefix := '"Bug!" @@ -103,7 +103,7 @@ ncBug (erMsgKey, erArgL,:optAttr) == msgCreate(tag,posWTag,key,argL,optPre,:optAttr) == if cons? key then tag := 'old - msg := [tag,posWTag,key,argL,optPre,NIL] + msg := [tag,posWTag,key,argL,optPre,nil] if first optAttr then setMsgForcedAttrList(msg,first optAttr) putDatabaseStuff msg @@ -143,7 +143,7 @@ getMsgInfoFromKey msg == getErFromDbL (erMsgKey,dbL) == - erMsg := NIL + erMsg := nil while null erMsg repeat dbName := first dbL dbL := rest dbL @@ -296,7 +296,7 @@ queueUpErrors(globalNumOfLine,msgList)== msgList redundant(msg,thisPosMsgs) == - found := NIL + found := nil if msgNoRep? msg then for item in $noRepList repeat sameMsg?(msg,item) => return (found := true) @@ -309,11 +309,11 @@ sameMsg? (msg1,msg2) == thisPosIsLess(pos,num) == - poNopos? pos => NIL + poNopos? pos => nil poGlobalLinePosn pos < num thisPosIsEqual(pos,num) == - poNopos? pos => NIL + poNopos? pos => nil poGlobalLinePosn pos = num --%outputting stuff @@ -439,7 +439,7 @@ desiredMsg (erMsgKey,:optCatFlag) == true isKeyQualityP (key,qual) == - --returns pair if found, else NIL + --returns pair if found, else nil found := false while not found and (qualPair := assoc(key,$specificMsgTags)) repeat if rest qualPair = qual then found := true @@ -508,7 +508,7 @@ makeLeaderMsg chPosList == st := strconc(st, _ rep(char ".", (posNum - oldPos - 1)),posLetter) oldPos := posNum - ['leader,$nopos,'nokey,NIL,NIL,[st]] + ['leader,$nopos,'nokey,nil,nil,[st]] makeMsgFromLine line == posOfLine := getLinePos line @@ -519,7 +519,7 @@ makeMsgFromLine line == stNum := STRINGIMAGE i strconc(rep(char " ", ($preLength - 7 - # stNum)),_ stNum) - ['line,posOfLine,NIL,NIL, strconc('"Line", localNumOfLine),_ + ['line,posOfLine,nil,nil, strconc('"Line", localNumOfLine),_ textOfLine] getMsgTag msg == ncTag msg @@ -551,7 +551,7 @@ getMsgKey? msg == IDENTP (val := getMsgKey msg) => val getMsgArgL msg == msg.3 getMsgPrefix? msg == - (pre := msg.4) = 'noPre => NIL + (pre := msg.4) = 'noPre => nil pre getMsgPrefix msg == msg.4 |