The R Project SVN R

Rev

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

Rev 6323 Rev 6517
Line 781... Line 781...
781 
    /*  We need a temporary variable to hold the intermediate values
 781 
    /*  We need a temporary variable to hold the intermediate values
782 
	in the computation.  For efficiency reasons we record the
 782 
	in the computation.  For efficiency reasons we record the
783 
	location where this variable is stored.  */
 783 
	location where this variable is stored.  */
784 
 
 784 
 
785 
    tmpsym = install("*tmp*");
 785 
    tmpsym = install("*tmp*");
- 
 
 786 
    if (rho == R_NilValue)
- 
 
 787 
	errorcall(call, "cannot do complex assignments in NULL environment");
786 
    defineVar(tmpsym, R_NilValue, rho);
 788 
    defineVar(tmpsym, R_NilValue, rho);
787 
    tmploc = findVarLocInFrame(rho, tmpsym);
 789 
    tmploc = findVarLocInFrame(rho, tmpsym);
788 
#ifdef OLD
 790 
#ifdef OLD
789 
    tmploc = FRAME(rho);
 791 
    tmploc = FRAME(rho);
790 
    while(tmploc != R_NilValue && TAG(tmploc) != tmpsym)
 792 
    while(tmploc != R_NilValue && TAG(tmploc) != tmpsym)