diff options
Diffstat (limited to 'src/interp/i-special.boot')
-rw-r--r-- | src/interp/i-special.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-special.boot b/src/interp/i-special.boot index d8c1abe4..f8d224ed 100644 --- a/src/interp/i-special.boot +++ b/src/interp/i-special.boot @@ -1535,12 +1535,12 @@ evalIF(op,[cond,a,b],m) == -- generate code form compiled IF elseCode:= b="%noMapVal" => - [[MKQ true, ["throwKeyedMsg",MKQ "S2IM0018", + [['%otherwise, ["throwKeyedMsg",MKQ "S2IM0018", ["CONS",MKQ object2Identifier $mapName,nil]]]] b='%noBranch => - $lastLineInSEQ => [[MKQ true,["voidValue"]]] + $lastLineInSEQ => [['%otherwise,["voidValue"]]] nil - [[MKQ true,genIFvalCode(b,m)]] + [['%otherwise,genIFvalCode(b,m)]] code:=['%when,[getArgValue(cond,$Boolean), genIFvalCode(a,m)],:elseCode] triple:= objNew(code,m) |