version 2

git-svn-id: https://svn.r-project.org/R/branches/unlabeled-1.20.2@5286 00db46b3-68df-0310-9c12-caf00c1e9a41
wch · Jul 21, 1999 · d7ec438 · d7ec438
1 parent b7db98e
commit d7ec438
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/main/options.c b/src/main/options.c
@@ -166,7 +166,7 @@ int R_SetOptionWarn(int w)
 void InitOptions(void)
 {
     SEXP t, val, v;
-    PROTECT(v = val = allocList(10));
+    PROTECT(v = val = allocList(11));
 
     TAG(v) = install("prompt");
     CAR(v) = mkString("> ");
@@ -215,7 +215,13 @@ void InitOptions(void)
     TAG(v) = install("check.bounds");
     CAR(v) = allocVector(LGLSXP, 1);
     LOGICAL(CAR(v))[0] = 0;	/* no checking */
+    v = CDR(v);
 
+    TAG(v) = install("keep.source");
+    CAR(v) = allocVector(LGLSXP, 1);
+    LOGICAL(CAR(v))[0] = 0;	/* no storage of function source */
+                                /* turned on after load of base  */
+
     SYMVALUE(install(".Options")) = val;
     UNPROTECT(2);
 }