public override Value Next()
{
if (current.SendToSelf("cmp", stop).Int <= 0)
{
var deferred = current;
current = (Object)current.SendToSelf("succ");
return(deferred);
}
return(NilValue);
}
public void Require(Arguments arguments)
{
if (!types[ContractType.Require])
{
return;
}
var messageName = Runtime.FunctionPrefix("require", name);
if (!obj.RespondsTo(messageName))
{
return;
}
var result = obj.SendToSelf(messageName, arguments);
Runtime.Assert(result.IsTrue, LOCATION, "Requirement for {0} failed", name);
}
public override void Reset() => obj.SendToSelf("reset");
static bool compare(Object left, Object right) => left.SendToSelf("cmp", right, () => - 1) == 0;
static Object next(Object current) => current.SendToSelf("succ").RequiredCast <Object>(() => "succ message didn't return an object");
