diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-09-02 16:20:53 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-09-02 16:20:53 +0000 |
| commit | d2c2747da6be576cc592bcb3f046356af2bfca9b (patch) | |
| tree | a4108a95f284d9ee425f32d4027db0edab9975f4 /src/interp/i-spec2.boot | |
| parent | 327b4fb2c149c02dd72f3d8f6070b6e0144828ee (diff) | |
| download | open-axiom-d2c2747da6be576cc592bcb3f046356af2bfca9b.tar.gz | |
* interp/cstream.boot: Cleanup.
* interp/g-boot.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-map.boot: Likewise.
* interp/i-resolv.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/nrungo.boot: Likewise.
* interp/posit.boot: Likewise.
* interp/sys-constants.boot: Define more constants.
Diffstat (limited to 'src/interp/i-spec2.boot')
| -rw-r--r-- | src/interp/i-spec2.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index 80595c9c..794568e5 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -275,9 +275,9 @@ compileIF(op,cond,a,b,t) == m2=m1 => m1 m2 = $Exit => m1 m1 = $Exit => m2 - if EQCAR(m1,"Symbol") then + if m1 = $Symbol then m1:=getMinimalVarMode(getUnname a,$declaredMode) - if EQCAR(m2,"Symbol") then + if m2 = $Symbol then m2:=getMinimalVarMode(getUnname b,$declaredMode) (r := resolveTTAny(m2,m1)) => r rempropI($mapName,'localModemap) @@ -553,7 +553,7 @@ evalLET(lhs,rhs) == $genValue => v objNew(getValueNormalForm v,objMode v) if isPartialMode t2 then - if EQCAR(t1,'Symbol) and $declaredMode then + if t1 = $Symbol and $declaredMode then t1:= getMinimalVarMode(objValUnwrap v,$declaredMode) t' := t2 null (t2 := resolveTM(t1,t2)) => @@ -1174,7 +1174,7 @@ copyHack(env) == -- (localModemap . something) c:= CAAR env d:= [fn p for p in c] where fn(p) == - CONS(CAR p,[(EQCAR(q,'localModemap) => q; copy q) for q in CDR p]) + CONS(CAR p,[(q is ["localModemap",:.] => q; copy q) for q in CDR p]) [[d]] |