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)))