The R Project SVN R

Rev

Rev 84246 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 84246 Rev 86712
Line 110... Line 110...
110 
	SET_CLOENV(c, rho);
 110 
	SET_CLOENV(c, rho);
111 
    UNPROTECT(3);
 111 
    UNPROTECT(3);
112 
    return c;
 112 
    return c;
113 
}
 113 
}
114 
 
 114 
 
- 
 
 115 
/* version for the API with more checking */
- 
 
 116 
SEXP R_mkClosure(SEXP formals, SEXP body, SEXP rho)
- 
 
 117 
{
- 
 
 118 
    CheckFormals(formals, "R_mkClosure");
- 
 
 119 
    if (! isEnvironment(rho))
- 
 
 120 
	error(_("invalid environment"));
- 
 
 121 
    return mkCLOSXP(formals, body, rho);
- 
 
 122 
}
- 
 
 123 
 
115 
/* mkChar - make a character (CHARSXP) variable -- see Rinlinedfuns.h */
 124 
/* mkChar - make a character (CHARSXP) variable -- see Rinlinedfuns.h */
116 
 
 125 
 
117 
/*  mkSYMSXP - return a symsxp with the string  */
 126 
/*  mkSYMSXP - return a symsxp with the string  */
118 
/*             name inserted in the name field  */
 127 
/*             name inserted in the name field  */
119 
 
 128