dup

static VALUE
proc_dup(VALUE self)
{
    VALUE procval;
    rb_proc_t *src;
    rb_proc_t *dst = ALLOC(rb_proc_t);

    GetProcPtr(self, src);
    *dst = *src;
    procval = rb_proc_wrap(rb_cProc, dst);
    RB_GC_GUARD(self); /* for: body = proc_dup(body) */

    return procval;
}