diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-22 17:25:49 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-22 17:25:49 +0000 |
| commit | bd371dff087150c946a48a34299aabc893580ffe (patch) | |
| tree | d762309d6b04a83e24910027f6cb2463b7daa5cd /src/interp/pf2atree.boot | |
| parent | 3045578ca18746550988fa351fe62fe7bc92a703 (diff) | |
| download | open-axiom-bd371dff087150c946a48a34299aabc893580ffe.tar.gz | |
* interp/i-analy.boot (bottomUpFormTuple): Use "tuple" for
parse form that are not type instantiations.
* interp/i-coerce.boot (coerceInt1): Likewise.
* interp/i-intern.boot (mkAtree3): Likewise.
(collectDefTypesAndPreds): Likewise.
* interp/i-map.boot (args2Tuple): Likewise.
(makePattern): Likewise.
(canMakeTuple): Likewise.
(makeRuleForm): Likewise.
(numArgs): Likewise.
(combineMapParts): Likewise.
(mkMapPred): Likewise.
(findLocalVars1): Likewise.
* interp/i-output.boot (outputTran): Likewise.
* interp/i-spec1.boot ($specialOps): Likewise.
(evalUntargetedADEF): Likewise.
(upDeclare): Likewise.
(declare): Likewise.
* interp/i-spec2.boot (upDollarTuple): Likewise.
(upLET): Likewise.
(isTupleForm): Remove.
(uptuple): Rename from upTuple.
(upLETWithFormOnLhs): Use "tuple" for parse forms that are not
type instantiations.
* interp/i-syscmd.boot (displayMacro): Likewise.
* interp/pf2atree.boot (pf2Atree1): Likewise.
* interp/pf2sex.boot (pf2Sex1): Likewise.
(pfApplication2Sex): Likewise.
(pfCollectArgTran): Likewise.
* interp/ptrees.boot (pfTuple): Likewise.
(pfTuple?): Likewise.
Diffstat (limited to 'src/interp/pf2atree.boot')
| -rw-r--r-- | src/interp/pf2atree.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/pf2atree.boot b/src/interp/pf2atree.boot index 15c76d23..56d7a832 100644 --- a/src/interp/pf2atree.boot +++ b/src/interp/pf2atree.boot @@ -78,7 +78,7 @@ pf2Atree1 pf == pfApplication2Atree pf (pfTuple?)(pf) => - [mkAtreeNodeWithSrcPos("Tuple",pf), + [mkAtreeNodeWithSrcPos("tuple",pf), :[pf2Atree1 x for x in (pf0TupleParts)(pf)]] (pfIf?)(pf) => @@ -96,7 +96,7 @@ pf2Atree1 pf == tag := (pfTaggedTag)(pf) tagPart := (pfTuple?) tag => - ["Tuple", :[pf2Sexpr(arg) for arg in (pf0TupleParts)(tag)]] + ["tuple", :[pf2Sexpr(arg) for arg in (pf0TupleParts)(tag)]] pf2Sexpr(tag) [mkAtreeNodeWithSrcPos("Declare",pf), tagPart, pf2Sexpr((pfTaggedExpr)(pf))] @@ -191,7 +191,7 @@ pf2Atree1 pf == ids := [x, :ids] idList := [pf2Atree1 x for x in reverse ids] if #idList ^= 1 then idList := - [mkAtreeNodeWithSrcPos("Tuple",pf), :idList] + [mkAtreeNodeWithSrcPos("tuple",pf), :idList] else idList := first idList x := [mkAtreeNodeWithSrcPos("LET",pf), idList, pf2Atree1 (pfAssignRhs)(pf)] |