Remove SET_TYPEOF and use LCONS() instead

nlmixr2 · Jun 30, 2024 · f10839a · f10839a
1 parent aaab59d
commit f10839a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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);