Fix typos in comments.

git-svn-id: https://svn.r-project.org/R/trunk@88473 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: kalibera

src/main/errors.c

@@ -189,7 +189,7 @@ static void onintrEx(Rboolean resumeOK)
     else signalInterrupt();
 
     /* Interrupts do not inherit from error, so we should not run the
-       user erro handler. But we have been, so as a transition,
+       user error handler. But we have been, so as a transition,
        continue to use options('error') if options('interrupt') is not
        set */
     Rboolean tryUserError = GetOption1(install("interrupt")) == R_NilValue;

src/main/eval.c

@@ -3110,7 +3110,7 @@ attribute_hidden SEXP do_tailcall(SEXP call, SEXP op, SEXP args, SEXP rho)
 	    fun = eval(fun, env);
 
 	/* allocating a vector result could be avoided by passing expr,
-	   env, and fun in some in globals or on the byte code stack */
+	   env, and fun in some globals or on the byte code stack */
 	PROTECT(fun);
 	SEXP val = allocVector(VECSXP, 4);
 	UNPROTECT(1); /* fun */