// ( a b -- [ a b ] )
public override void Execute(Interpreter interp)
{
StackItem b = interp.StackPop();
StackItem a = interp.StackPop();
ArrayItem result = new ArrayItem();
result.Add(a);
result.Add(b);
interp.StackPush(result);
}
// ( items forthic -- new_items )
public override void Execute(Interpreter interp)
{
StringItem forthic = (StringItem)interp.StackPop();
ArrayItem items = (ArrayItem)interp.StackPop();
ArrayItem result = new ArrayItem();
foreach (var item in items.ArrayValue)
{
interp.StackPush(item);
interp.Run(forthic.StringValue);
result.Add(interp.StackPop());
}
interp.StackPush(result);
}
