diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-24 05:20:27 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-24 05:20:27 +0000 |
| commit | 68639c56f45afe2df802235f50b4ab8b3886dca4 (patch) | |
| tree | 240ecbb8391f60cf2a008f3a22031b3751829f5d /src/interp/wi1.boot | |
| parent | dac28fb009d9c27cb8e0f9e453feb8a630b7e145 (diff) | |
| download | open-axiom-68639c56f45afe2df802235f50b4ab8b3886dca4.tar.gz | |
* interp/c-util.boot: Cleanup.
* interp/compiler.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/g-opt.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/nrunfast.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp/wi1.boot')
| -rw-r--r-- | src/interp/wi1.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index 7c47213c..e67cc234 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -358,7 +358,7 @@ compAtom(x,m,e) == extractCodeAndConstructTriple(u, m, oldE) == u := markKillAll u - u is ["%Call",fn,:.] => + u is ['%call,fn,:.] => if fn is ["applyFun",a] then fn := a [fn,m,oldE] [op,:.,env] := u @@ -932,7 +932,7 @@ coerceByModemap([x,m,e],m') == and (modeEqual(s,m) or isSubset(m,s,e))] or return nil mm:=first u -- patch for non-trival conditons fn := genDeltaEntry(['coerce,:mm],e) - T := [["%Call",fn,x],m',e] + T := [['%call,fn,x],m',e] markCoerceByModemap(x,m,m',markCallCoerce(x,m',T),nil) autoCoerceByModemap([x,source,e],target) == @@ -941,7 +941,7 @@ autoCoerceByModemap([x,source,e],target) == for (modemap:= [map,cexpr]) in getModemapList("autoCoerce",1,e) | map is [ .,t,s] and modeEqual(t,target) and modeEqual(s,source)] or return nil fn:= (or/[selfn for [cond,selfn] in u | cond=true]) or return nil - markCoerceByModemap(x,source,target,[["%Call",fn,x],target,e],true) + markCoerceByModemap(x,source,target,[['%call,fn,x],target,e],true) --====================================================================== -- From compiler.boot @@ -1008,7 +1008,7 @@ compCase1(x,m,e) == x1 := switchMode => markRepper('rep, x) x - markCase(x, tag, markCaseWas(x1,[["%Call",fn,x'],$Boolean,e'])) + markCase(x, tag, markCaseWas(x1,[['%call,fn,x'],$Boolean,e'])) genCaseTag(t,l,n) == l is [x, :l] => |