The R Project SVN R

Rev

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

Rev 60667 Rev 60710
Line 260... Line 260...
260 
    UNPROTECT(1);  /* UNPROTECT container */
 260 
    UNPROTECT(1);  /* UNPROTECT container */
261 
    return mainlist;
 261 
    return mainlist;
262 
}
 262 
}
263 
 
 263 
 
264 
/* This is for contourLines() in package grDevices */
 264 
/* This is for contourLines() in package grDevices */
265 
SEXP attribute_hidden do_contourLines(SEXP call, SEXP op, SEXP args, SEXP env)
 265 
SEXP do_contourLines(SEXP call, SEXP op, SEXP args, SEXP env)
266 
{
 266 
{
267 
    SEXP c, x, y, z;
 267 
    SEXP c, x, y, z;
268 
    int nx, ny, nc;
 268 
    int nx, ny, nc;
269 
 
 269 
 
270 
    x = PROTECT(coerceVector(CAR(args), REALSXP));
 270 
    x = PROTECT(coerceVector(CAR(args), REALSXP));