diff options
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 |