From f10839a5071742682a10a0304b01bcf6690ecb73 Mon Sep 17 00:00:00 2001
From: "Matthew L. Fidler" <matthew.fidler@gmail.com>
Date: Sun, 30 Jun 2024 11:32:42 -0500
Subject: [PATCH] Remove SET_TYPEOF and use LCONS() instead

---
 src/getOption.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/getOption.c b/src/getOption.c
index 2a5f1e46..8098f13f 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);