The R Project SVN R

Rev

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

Rev 15938 Rev 15947
Line 726... Line 726...
726 
  return old;
 726 
  return old;
727 
}
 727 
}
728 
 
 728 
 
729 
SEXP do_standardGeneric(SEXP call, SEXP op, SEXP args, SEXP env)
 729 
SEXP do_standardGeneric(SEXP call, SEXP op, SEXP args, SEXP env)
730 
{
 730 
{
731 
  SEXP arg, value;
 731 
  SEXP arg, value; R_stdGen_ptr_t ptr = R_get_standardGeneric_ptr();
732 
  if(!R_standardGeneric_ptr)
 732 
  if(!ptr)
733 
    error("Using standardGeneric before the methods package has been attached");
 733 
    error("Using standardGeneric before the methods package has been attached");
734 
 
 734 
 
735 
  checkArity(op, args);
 735 
  checkArity(op, args);
736 
 
 736 
 
737 
  PROTECT(arg = CAR(args));
 737 
  PROTECT(arg = CAR(args));
738 
 
 738 
 
739 
  value = (*R_standardGeneric_ptr)(arg, env);
 739 
  value = (*ptr)(arg, env);
740
740
741 
  UNPROTECT(1);
 741 
  UNPROTECT(1);
742 
  return value;
 742 
  return value;
743 
}
 743 
}
744 
 
 744