% Negate Int
meth ineg =^ ( ·
var o : Object ·
var D : DataInfoInt ·
var op : Int ·
var CurrentFrame : FrameInfo ·
TopFrame.GetFrame(CurrentFrame);
% Getting the operand on the Operand stack
currentFrame.Pop(o);
if [] o isExactly DataInfoInt ® (DataInfoInt) o.GetInfo(op);
[] not (o isExactly DataInfoInt) ® miracle
fi
% Negating the operand
op:= op * (-1);
D.SetInfo(op);
currentFrame.Push (D);
TopFrame.SetFrame(CurrentFrame);
end end end end
)
end