From 6fb4e2629227db20a5d7107a021dce7764f3a8a2 Mon Sep 17 00:00:00 2001
From: Michael Chirico <michaelchirico4@gmail.com>
Date: Fri, 27 Sep 2024 10:56:16 -0700
Subject: [PATCH] remove once-used local variable

---
 src/programming.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/programming.c b/src/programming.c
index 0a9464bce..2d6b18586 100644
--- a/src/programming.c
+++ b/src/programming.c
@@ -1,8 +1,7 @@
 #include "data.table.h"
 
 static void substitute_call_arg_names(SEXP expr, SEXP env) {
-  R_len_t len = length(expr);
-  if (!len || !isLanguage(expr))
+  if (!length(expr) || !isLanguage(expr))
     return; // isLanguage is R's is.call
   SEXP arg_names = getAttrib(expr, R_NamesSymbol);
   if (!isNull(arg_names)) {