diff options
author | dos-reis <gdr@axiomatics.org> | 2007-11-22 22:52:26 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-11-22 22:52:26 +0000 |
commit | a849c01d4cb25ca4ff5e1a618b73e4d4b5603069 (patch) | |
tree | ce7e6d2ddc80dabfc4f9ee9e01796f7caaae38a1 /src/interp/i-spec2.boot | |
parent | fcc7f11db9c755b9b58ce43d37bbe8a702af8ebf (diff) | |
download | open-axiom-a849c01d4cb25ca4ff5e1a618b73e4d4b5603069.tar.gz |
* i-analy.boot: Globally substtitue %noMapVal for noMapVal.
* i-intern.boot: Likewise.
* i-map.boot: Likewise.
* i-spec2.boot: Likewise.
* i-spec1.boot: Likewise.
Diffstat (limited to 'src/interp/i-spec2.boot')
-rw-r--r-- | src/interp/i-spec2.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index 40528d48..69d179a9 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -210,7 +210,7 @@ compileIF(op,cond,a,b,t) == b = "%noBranch" => evalIF(op,rest t,$Void) putModeSet(op,[$Void]) - b = "noMapVal" => + b = "%noMapVal" => -- if this was a return statement, we take the mode to be that -- of what is being returned. if getUnname a = 'return then @@ -239,7 +239,7 @@ compileIF(op,cond,a,b,t) == evalIF(op,[cond,a,b],m) == -- generate code form compiled IF elseCode:= - b="noMapVal" => + b="%noMapVal" => [[MKQ true, ["throwKeyedMsg",MKQ "S2IM0018", ["CONS",MKQ object2Identifier $mapName,NIL]]]] b='%noBranch => |