From 6e00dab37f31e45d331c1325f8dfc5003ca2dc39 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 25 Jul 2018 18:15:09 -0600
Subject: [PATCH] bootfiles and fixup

original commit: a6c7f8851fd3996726f62f62e151ff76f0216f72
---
 c/gc.c     | 1 -
 s/patch.ss | 8 --------
 2 files changed, 9 deletions(-)

diff --git a/c/gc.c b/c/gc.c
index 988327c231..9456b15eac 100644
--- a/c/gc.c
+++ b/c/gc.c
@@ -557,7 +557,6 @@ static ptr copy(pp, si) ptr pp; seginfo *si; {
             }
         } else {
             iptr len, n;
-            ISPC s;
             len = CLOSLEN(pp);
             n = size_closure(len);
 #ifdef ENABLE_OBJECT_COUNTS
diff --git a/s/patch.ss b/s/patch.ss
index b39b154496..5bf1f9a39b 100644
--- a/s/patch.ss
+++ b/s/patch.ss
@@ -13,14 +13,6 @@
 ;;; See the License for the specific language governing permissions and
 ;;; limitations under the License.
 
-
-(define generate-procedure-source-information
-  (case-lambda
-   [() #f]
-   [(v) (void)]))
-
-(define ($make-arity-wrapper-procedure proc mask) proc)
-
 (printf "loading ~s cross compiler~%" (constant machine-type-name))
 
 ; (current-expand (lambda args (apply sc-expand args)))