The R Project SVN R

Rev

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

Rev 32867 Rev 34549
Line 55... Line 55...
55 
    SEXP result = allocSExp(eval ? BUILTINSXP : SPECIALSXP);
 55 
    SEXP result = allocSExp(eval ? BUILTINSXP : SPECIALSXP);
56 
    SET_PRIMOFFSET(result, offset);
 56 
    SET_PRIMOFFSET(result, offset);
57 
    return (result);
 57 
    return (result);
58 
}
 58 
}
59 
 
 59 
 
- 
 
 60 
/* This is called by function() {}, where an invalid
- 
 
 61 
   body should be impossible. When called from
- 
 
 62 
   other places (eg do_asfunction) they
- 
 
 63 
   should do this checking in advance */
60 
 
 64 
 
61 
/*  mkCLOSXP - return a closure with formals f,  */
 65 
/*  mkCLOSXP - return a closure with formals f,  */
62 
/*             body b, and environment rho       */
 66 
/*             body b, and environment rho       */
63 
 
 67 
 
64 
SEXP mkCLOSXP(SEXP formals, SEXP body, SEXP rho)
 68 
SEXP mkCLOSXP(SEXP formals, SEXP body, SEXP rho)