The R Project SVN R

Rev

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

Rev 25090 Rev 25332
Line 189... Line 189...
189 
					 TRUE);
 189 
					 TRUE);
190 
	    if (TYPEOF(table) == PROMSXP)
 190 
	    if (TYPEOF(table) == PROMSXP)
191 
		table = eval(table, R_NilValue);
 191 
		table = eval(table, R_NilValue);
192 
	    if (TYPEOF(table) == ENVSXP) {
 192 
	    if (TYPEOF(table) == ENVSXP) {
193 
		val = findVarInFrame3(table, method, TRUE);
 193 
		val = findVarInFrame3(table, method, TRUE);
- 
 
 194 
		if (TYPEOF(val)==PROMSXP)
- 
 
 195 
		    val = eval(val, rho);
194 
		if (val != R_UnboundValue)
 196 
		if (val != R_UnboundValue)
195 
		    return val;
 197 
		    return val;
196 
	    }
 198 
	    }
197 
	    return R_UnboundValue;
 199 
	    return R_UnboundValue;
198 
	}
 200 
	}