diff --git a/src/getOption.c b/src/getOption.c index 2a5f1e4..8098f13 100644 --- a/src/getOption.c +++ b/src/getOption.c @@ -8,7 +8,7 @@ int R_get_option(const char *option, int def) { SEXP s, t; int ret, pro=0; - PROTECT(t = s = allocList(3));pro++; + PROTECT(t = s = LCONS(R_NilValue, allocList(2)));pro++; SET_TYPEOF(s, LANGSXP); SETCAR(t, install("getOption")); t = CDR(t); SETCAR(t, mkString(option)); t = CDR(t);