diff options
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 => |