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/ptrees.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/ptrees.boot')
| -rw-r--r-- | src/interp/ptrees.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/ptrees.boot b/src/interp/ptrees.boot index b6ab6e37..d2849527 100644 --- a/src/interp/ptrees.boot +++ b/src/interp/ptrees.boot @@ -342,8 +342,8 @@ pfApplicationArg pf == CADDR pf -- was ==> -- Tuple := (Parts: [Expr]) pfTupleListOf(pfparts) == pfTuple pfListOf pfparts -pfTuple(pfparts) == pfTree('Tuple, [pfparts]) -pfTuple?(pf) == pfAbSynOp? (pf, 'Tuple) +pfTuple(pfparts) == pfTree("tuple", [pfparts]) +pfTuple?(pf) == pfAbSynOp? (pf, "tuple") pfTupleParts pf == CADR pf -- was ==> pf0TupleParts pf == pfParts pfTupleParts pf |