From 51f56c84f6ebb93d6a886deccda8adab666d35c0 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Mon, 1 Nov 2010 10:23:19 -0600
Subject: [PATCH] Fixing warning

---
 src/racket/src/read.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/racket/src/read.c b/src/racket/src/read.c
index 73e557649d..28910f695c 100644
--- a/src/racket/src/read.c
+++ b/src/racket/src/read.c
@@ -4738,13 +4738,13 @@ static Scheme_Object *read_compact(CPort *port, int use_stack)
       l = read_compact_number(port);
       RANGE_CHECK(l, < port->symtab_size);
       v = port->symtab[l];
-      if (v == -1) {
+      if (v == (Scheme_Object *)-1) {
         // there is a cycle
         scheme_ill_formed_code(port);
       };
       if (!v) {
         long save_pos = port->pos;
-        port->symtab[l] = -1; /* avoid cycles if marshaled form is broken: */
+        port->symtab[l] = (Scheme_Object *)-1; /* avoid cycles if marshaled form is broken: */
         port->pos = port->shared_offsets[l - 1];
         v = read_compact(port, 0);
         port->pos = save_pos;