diff options
author | dos-reis <gdr@axiomatics.org> | 2007-11-22 17:20:27 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-11-22 17:20:27 +0000 |
commit | fcc7f11db9c755b9b58ce43d37bbe8a702af8ebf (patch) | |
tree | 05aa94e2606b88faf554913a03a60bc424e56102 /src/interp/i-spec2.boot | |
parent | 4244764830efa92de999f8e548f0cc2a800e61d1 (diff) | |
download | open-axiom-fcc7f11db9c755b9b58ce43d37bbe8a702af8ebf.tar.gz |
* as.boot: Globally substitute %noBranch for noBranch.
* ax.boot: Likewise.
* cattable.boot: Likewise.
* compiler.boot: Likewise.
* def.lisp: Likewise.
* define.boot: Likewise.
* functor.boot: Likewise.
* g-opt.boot: Likewise.
* i-analy.boot: Likewise.
* i-intern.boot: Likewise.
* i-map.boot: Likewise.
* i-object.boot: Likewise.
* i-output.boot: Likewise.
* i-spec2.boot: Likewise.
* info.boot: Likewise.
* mark.boot: Likewise.
* nrunopt.boot: Likewise.
* package.boot: Likewise.
* parse.boot: Likewise.
* pf2atree.boot: Likewise.
* pf2sex.boot: Likewise.
* postpar.boot: Likewise.
* pspad2.boot: Likewise.
* wi2.boot: Likewise.
Diffstat (limited to 'src/interp/i-spec2.boot')
-rw-r--r-- | src/interp/i-spec2.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index aec3d6ce..40528d48 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -207,7 +207,7 @@ compileIF(op,cond,a,b,t) == -- IF are resolved. ms1 := bottomUp a [m1] := ms1 - b = "noBranch" => + b = "%noBranch" => evalIF(op,rest t,$Void) putModeSet(op,[$Void]) b = "noMapVal" => @@ -242,7 +242,7 @@ evalIF(op,[cond,a,b],m) == b="noMapVal" => [[MKQ true, ["throwKeyedMsg",MKQ "S2IM0018", ["CONS",MKQ object2Identifier $mapName,NIL]]]] - b='noBranch => + b='%noBranch => $lastLineInSEQ => [[MKQ true,["voidValue"]]] NIL [[MKQ true,genIFvalCode(b,m)]] @@ -279,7 +279,7 @@ interpIF(op,cond,a,b) == val:= getValue cond val:= coerceInteractive(val,$Boolean) => objValUnwrap(val) => upIFgenValue(op,a) - EQ(b,"noBranch") => + EQ(b,"%noBranch") => putValue(op,objNew(voidValue(), $Void)) putModeSet(op,[$Void]) upIFgenValue(op,b) |