The R Project SVN R

Rev

Rev 63050 | Rev 63176 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 63050 Rev 63147
Line 802... Line 802...
802 
    defineVar(R_dot_Generic, generic, m);
 802 
    defineVar(R_dot_Generic, generic, m);
803 
 
 803 
 
804 
    defineVar(R_dot_Group, group, m);
 804 
    defineVar(R_dot_Group, group, m);
805 
 
 805 
 
806 
    SETCAR(newcall, method);
 806 
    SETCAR(newcall, method);
- 
 
 807 
 
- 
 
 808 
    /* applyMethod expects that the parent of the caller is the caller
- 
 
 809 
       of the generic, so fixup by brute force. This should fix
- 
 
 810 
       PR#15267 --pd */
- 
 
 811 
    R_GlobalContext->sysparent = callenv;
- 
 
 812 
 
807 
    ans = applyMethod(newcall, nextfun, matchedarg, env, m);
 813 
    ans = applyMethod(newcall, nextfun, matchedarg, env, m);
808 
    UNPROTECT(10);
 814 
    UNPROTECT(10);
809 
    return(ans);
 815 
    return(ans);
810 
}
 816 
}
811 
 
 817