void factor_vm::primitive_set_retainstack() { rs = array_to_stack(untag_check<array>(dpop()),rs_bot); }
void factor_vm::set_retainstack(context* ctx, array* array) { ctx->retainstack = array_to_stack(array, ctx->retainstack_seg->start); }
void factor_vm::primitive_set_datastack() { ds = array_to_stack(untag_check<array>(dpop()),ds_bot); }