From 9931d5ef1cdbcded9ea1875762d1a4c4a783c37b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 24 Jun 2015 07:17:39 +0800
Subject: [PATCH] avoid compiler warning

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

diff --git a/racket/src/racket/src/optimize.c b/racket/src/racket/src/optimize.c
index 914242909d..71e5c117ae 100644
--- a/racket/src/racket/src/optimize.c
+++ b/racket/src/racket/src/optimize.c
@@ -3950,7 +3950,7 @@ Scheme_Hash_Tree *intersect_and_merge_types(Scheme_Hash_Tree *t_types, Scheme_Ha
     return base_types;
 
   if (f_types->count > t_types->count) {
-    Scheme_Object *swap = f_types;
+    Scheme_Hash_Tree *swap = f_types;
     f_types = t_types;
     t_types = swap;
   }