// ( 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); }