diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:48:11 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:48:11 +0000 |
| commit | 37bce222d153e4b7b0c086b9c717435f4cdd2c77 (patch) | |
| tree | 6a1d1b2588643c082614ef86058e0d8900977813 /src/interp | |
| parent | 3d51abbf17fa58fadbfa59757f50908488f6f9d9 (diff) | |
| download | open-axiom-37bce222d153e4b7b0c086b9c717435f4cdd2c77.tar.gz | |
* boot/tokens.boot: Don't rename 'car', 'cdr', and PAIRP.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/msg.boot | 2 | ||||
| -rw-r--r-- | src/interp/newfort.boot | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/msg.boot b/src/interp/msg.boot index 8d59e963..455b3248 100644 --- a/src/interp/msg.boot +++ b/src/interp/msg.boot @@ -105,7 +105,7 @@ msgCreate(tag,posWTag,key,argL,optPre,:optAttr) == if cons? key then tag := 'old msg := [tag,posWTag,key,argL,optPre,NIL] if first optAttr then - setMsgForcedAttrList(msg,car optAttr) + setMsgForcedAttrList(msg,first optAttr) putDatabaseStuff msg initImPr msg initToWhere msg diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot index ccd1de1d..03e3695c 100644 --- a/src/interp/newfort.boot +++ b/src/interp/newfort.boot @@ -716,7 +716,7 @@ fortFormatCharacterTypes(names) == #u=2 => sortedByLength := insertEntry(second u,first u,sortedByLength) genuineArrays := [u,:genuineArrays] for u in sortedByLength repeat - fortFormatTypes1(mkCharName car u, [STRINGIMAGE(s) for s in rest(u)]) where + fortFormatTypes1(mkCharName first u, [STRINGIMAGE(s) for s in rest(u)]) where mkCharName v == strconc("CHARACTER*(",STRINGIMAGE v,")") if (not null genuineArrays) then fortFormatTypes1('"CHARACTER",mkParameterList2 genuineArrays) where |