The R Project SVN R

Rev

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

Rev 10538 Rev 10740
Line 137... Line 137...
137 
	UNPROTECT(2);
 137 
	UNPROTECT(2);
138 
	return c;
 138 
	return c;
139 
}
 139 
}
140 
 
 140 
 
141 
 
 141 
 
142 
/*  mkPROMISE - make a promise to evaluate an argument  */
 - 
 
143 
 
 - 
 
144 
#if 0 /* moved to memory.c for efficiency */
 - 
 
145 
SEXP mkPROMISE(SEXP expr, SEXP rho)
 - 
 
146 
{
 - 
 
147 
    SEXP p;
 - 
 
148 
 
 - 
 
149 
    PROTECT(expr);
 - 
 
150 
    PROTECT(rho);
 - 
 
151 
    p = allocSExp(PROMSXP);
 - 
 
152 
    SET_PREXPR(p, expr);
 - 
 
153 
    SET_PRENV(p, rho);
 - 
 
154 
    SET_PRVALUE(p, R_UnboundValue);
 - 
 
155 
    SET_PRSEEN(p, 0);
 - 
 
156 
    UNPROTECT(2);
 - 
 
157 
    return p;
 - 
 
158 
}
 - 
 
159 
#endif
 - 
 
160 
 
 - 
 
161 
/*  length - length of objects  */
 142 
/*  length - length of objects  */
162 
 
 143 
 
163 
int length(SEXP s)
 144 
int length(SEXP s)
164 
{
 145 
{
165 
    int i;
 146 
    int i;