The R Project SVN – R – Diff – /trunk/src/main/engine.c

 	selectDevice(this);
 	while (theList != R_NilValue && plotok) {
 	    SEXP theOperation = CAR(theList);
 	    SEXP op = CAR(theOperation);
 	    SEXP args = CADR(theOperation);
+	    if (TYPEOF(op) == BUILTINSXP || TYPEOF(op) == SPECIALSXP) {
-	    PRIMFUN(op) (R_NilValue, op, args, R_NilValue);
+	    	PRIMFUN(op) (R_NilValue, op, args, R_NilValue);
-	    /* Check with each graphics system that the plotting went ok
+		/* Check with each graphics system that the plotting went ok
-	     */
+		 */
-	    if (!GEcheckState(dd)) {
+		if (!GEcheckState(dd)) {
+		    warning(_("display list redraw incomplete"));
-		plotok = 0;
+		    plotok = 0;
+		}
+	    } else {
-		warning(_("display list redraw incomplete"));
+	    	warning(_("invalid display list"));
+	    	plotok = 0;
+	    }
 	    theList = CDR(theList);
+	}
 	selectDevice(savedDevice);
 	savePalette(FALSE);

The R Project SVN R