The R Project SVN R

Rev

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

Rev 36138 Rev 36174
Line 746... Line 746...
746 
	     cptr = cptr->nextcontext)
 746 
	     cptr = cptr->nextcontext)
747 
	    if (cptr->callflag & CTXT_FUNCTION) {
 747 
	    if (cptr->callflag & CTXT_FUNCTION) {
748 
		rho = cptr->cloenv;
 748 
		rho = cptr->cloenv;
749 
		break;
 749 
		break;
750 
	    }
 750 
	    }
751 
	while(rho != R_BaseEnv) {
 751 
	while(rho != R_EmptyEnv) {
752 
	    if (rho == R_GlobalEnv) break;
 752 
	    if (rho == R_GlobalEnv) break;
753 
	    else if (R_IsNamespaceEnv(rho)) {
 753 
	    else if (R_IsNamespaceEnv(rho)) {
754 
		domain = CHAR(STRING_ELT(R_NamespaceEnvSpec(rho), 0));
 754 
		domain = CHAR(STRING_ELT(R_NamespaceEnvSpec(rho), 0));
755 
		break;
 755 
		break;
756 
	    }
 756 
	    }
Line 845... Line 845...
845 
	     cptr = cptr->nextcontext)
 845 
	     cptr = cptr->nextcontext)
846 
	    if (cptr->callflag & CTXT_FUNCTION) {
 846 
	    if (cptr->callflag & CTXT_FUNCTION) {
847 
		rho = cptr->cloenv;
 847 
		rho = cptr->cloenv;
848 
		break;
 848 
		break;
849 
	    }
 849 
	    }
850 
	while(rho != R_BaseEnv) {
 850 
	while(rho != R_EmptyEnv) {
851 
	    if (rho == R_GlobalEnv) break;
 851 
	    if (rho == R_GlobalEnv) break;
852 
	    else if (R_IsNamespaceEnv(rho)) {
 852 
	    else if (R_IsNamespaceEnv(rho)) {
853 
		domain = CHAR(STRING_ELT(R_NamespaceEnvSpec(rho), 0));
 853 
		domain = CHAR(STRING_ELT(R_NamespaceEnvSpec(rho), 0));
854 
		break;
 854 
		break;
855 
	    }
 855 
	    }