diff options
author | dos-reis <gdr@axiomatics.org> | 2008-05-09 17:39:54 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-05-09 17:39:54 +0000 |
commit | 20a8ad75b7e37bb087342e80e3f1c18eb74e4af8 (patch) | |
tree | 2796d582814e528527310f88b9cc9301cee42ebb /src/interp/br-op2.boot | |
parent | 2e3759ab9fa0e0962408ddf39f88f892f0fed1de (diff) | |
download | open-axiom-20a8ad75b7e37bb087342e80e3f1c18eb74e4af8.tar.gz |
* interp/as.boot: Remove Old Boot semantics.
* interp/br-con.boot: Likewise.
* interp/br-data.boot: Likewise.
* interp/br-op1.boot: Likewise.
* interp/br-op2.boot: Likewise.
* interp/br-saturn.boot: Likewise.
* interp/compiler.boot: Likewise.
* interp/define.boot: Likewise.
* interp/fortcall.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/htsetvar.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/nrunopt.boot: Likewise.
Diffstat (limited to 'src/interp/br-op2.boot')
-rw-r--r-- | src/interp/br-op2.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot index 4744cd5c..9ef668ee 100644 --- a/src/interp/br-op2.boot +++ b/src/interp/br-op2.boot @@ -245,7 +245,7 @@ getSubstInsert(x,candidates) == return insert(x,candidates) null candidates => [x] or/[CONTAINED(x,y) for y in candidates] => candidates - y := or/[CONTAINED(y,x) for y in candidates] => SUBST(x,y,candidates) + y := or/[CONTAINED(y,x) for y in candidates] => substitute(x,y,candidates) candidates @@ -568,7 +568,7 @@ modemap2Sig(op,mm) == if partial? then target := dcSig . 1 ntarget := ['Union, target, '"failed"] - dcSig := SUBST(ntarget, target, dcSig) + dcSig := substitute(ntarget, target, dcSig) alist := findSubstitutionOrder? pairlis(vlist, flist) or systemError() predList := substInOrder(alist, predList) nsig := substInOrder(alist, sig) @@ -580,7 +580,7 @@ modemap2Sig(op,mm) == pp mm $badStack := [[op, mm], :$badStack] --pause nsig - [predList, origin, SUBST("%", origin, nsig)] + [predList, origin, substitute("%", origin, nsig)] modemap2SigConds conds == conds is ['OR,:r] => modemap2SigConds first r |