The R Project SVN R

Rev

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

Rev 32380 Rev 32867
Line 71... Line 71...
71 
 
 71 
 
72 
#ifdef not_used_CheckFormals
 72 
#ifdef not_used_CheckFormals
73 
    if(isList(formals))
 73 
    if(isList(formals))
74 
	SET_FORMALS(c, formals);
 74 
	SET_FORMALS(c, formals);
75 
    else
 75 
    else
76 
        error("invalid formal arguments for \"function\"");
 76 
        error(_("invalid formal arguments for \"function\""));
77 
#else
 77 
#else
78 
    SET_FORMALS(c, formals);
 78 
    SET_FORMALS(c, formals);
79 
#endif
 79 
#endif
80 
    if(isList(body) || isLanguage(body) || isSymbol(body)
 80 
    if(isList(body) || isLanguage(body) || isSymbol(body)
81 
       || isExpression(body) || isVector(body)
 81 
       || isExpression(body) || isVector(body)
Line 83... Line 83...
83 
       || isByteCode(body)
 83 
       || isByteCode(body)
84 
#endif
 84 
#endif
85 
       )
 85 
       )
86 
	SET_BODY(c, body);
 86 
	SET_BODY(c, body);
87 
    else
 87 
    else
88 
        error("invalid body argument for \"function\"\n"
 88 
        error(_("invalid body argument for \"function\"\n\
89 
	      "Should NEVER happen; please bug.report() [mkCLOSXP]\n");
 89 
Should NEVER happen; please bug.report() [mkCLOSXP]"));
90 
 
 90 
 
91 
    if(rho == R_NilValue)
 91 
    if(rho == R_NilValue)
92 
	SET_CLOENV(c, R_GlobalEnv);
 92 
	SET_CLOENV(c, R_GlobalEnv);
93 
    else
 93 
    else
94 
	SET_CLOENV(c, rho);
 94 
	SET_CLOENV(c, rho);