aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-08-19 14:35:21 +0000
committerdos-reis <gdr@axiomatics.org>2007-08-19 14:35:21 +0000
commit17bed73d60542761e6817b711fcc6d62c0d05cc6 (patch)
tree5b1b79049b258638344735416c7b66180a46dbd7 /src/interp
parent1065b174d5c7cdaaec42650593946e0e70412128 (diff)
downloadopen-axiom-17bed73d60542761e6817b711fcc6d62c0d05cc6.tar.gz
* msg.boot.pamphlet (putDatabaseStuff): Fix thinko.
(setMsgCatlessAttr): Quote catless. (posPointers): Fix thinko.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/ChangeLog6
-rw-r--r--src/interp/msg.boot.pamphlet6
2 files changed, 9 insertions, 3 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index f8e67834..9b283ad5 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,3 +1,9 @@
+2007-08-19 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
+ * msg.boot.pamphlet (putDatabaseStuff): Fix thinko.
+ (setMsgCatlessAttr): Quote catless.
+ (posPointers): Fix thinko.
+
2007-08-17 Gabriel Dos Reis <gdr@cs.tamu.edu>
* vmlisp.lisp.pamphlet (define-function): Define in all situations.
diff --git a/src/interp/msg.boot.pamphlet b/src/interp/msg.boot.pamphlet
index 70983f54..ac311779 100644
--- a/src/interp/msg.boot.pamphlet
+++ b/src/interp/msg.boot.pamphlet
@@ -122,7 +122,7 @@ processKeyedError msg ==
--%getting info from db.
putDatabaseStuff msg ==
[text,attributes] := getMsgInfoFromKey msg
- if attributes then setMsgUnforcedAttrList(msg,aL)
+ if attributes then setMsgUnforcedAttrList(msg,attributes)
setMsgText(msg,text)
getMsgInfoFromKey msg ==
@@ -177,7 +177,7 @@ posPointers msgList ==
pos := poCharPosn getMsgPos msg
if pos ^= IFCAR posList then
posList := [pos,:posList]
- if getMsgFTTag = 'FROMTO then
+ if getMsgFTTag? msg = 'FROMTO then
ftPosList := [poCharPosn getMsgPos2 msg,:ftPosList]
for toPos in ftPosList repeat
posList := insertPos(toPos,posList)
@@ -487,7 +487,7 @@ setMsgUnforcedAttr(msg,cat,attr) ==
not QASSQ(cat, ncAlist msg) => ncPutQ(msg,cat,attr)
setMsgCatlessAttr(msg,attr) ==
- ncPutQ(msg,catless,CONS (attr, IFCDR QASSQ(catless, ncAlist msg)))
+ ncPutQ(msg,'catless,CONS (attr, IFCDR QASSQ(catless, ncAlist msg)))
whichCat attr ==
found := 'catless