From e301d3061d189dc722ea69edcccaa3880013fcbb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 10 May 2020 06:59:50 -0600
Subject: [PATCH] another simplification suggested by scan-build

---
 racket/src/foreign/foreign.c    | 1 -
 racket/src/foreign/foreign.rktc | 1 -
 2 files changed, 2 deletions(-)

diff --git a/racket/src/foreign/foreign.c b/racket/src/foreign/foreign.c
index eca964d3f7..36b56914aa 100644
--- a/racket/src/foreign/foreign.c
+++ b/racket/src/foreign/foreign.c
@@ -2725,7 +2725,6 @@ static Scheme_Object *foreign_malloc(int argc, Scheme_Object *argv[])
   Scheme_Object *mode = NULL, *a, *base = NULL;
   Scheme_Malloc_Proc mf;
   for (i=0; i<argc; i++) {
-    a = argv[i];
     a = unwrap_cpointer_property(argv[i]);
     if (SCHEME_INTP(a)) {
       if (num != -1)
diff --git a/racket/src/foreign/foreign.rktc b/racket/src/foreign/foreign.rktc
index 0b7fd88e5e..d8fa68410c 100755
--- a/racket/src/foreign/foreign.rktc
+++ b/racket/src/foreign/foreign.rktc
@@ -1960,7 +1960,6 @@ static Scheme_Malloc_Proc ctype_allocator(Scheme_Object *type)
   Scheme_Object *mode = NULL, *a, *base = NULL;
   Scheme_Malloc_Proc mf;
   for (i=0; i<argc; i++) {
-    a = argv[i];
     a = unwrap_cpointer_property(argv[i]);
     if (SCHEME_INTP(a)) {
       if (num != -1)