From a8915e5ff685b0259aeca71541c5821b051b180c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 2 Dec 2005 16:06:59 +0000
Subject: [PATCH] added needed cast

svn: r1492
---
 src/mred/wxs/wxscheme.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mred/wxs/wxscheme.cxx b/src/mred/wxs/wxscheme.cxx
index b04ec0f6a1..c5088cacc0 100644
--- a/src/mred/wxs/wxscheme.cxx
+++ b/src/mred/wxs/wxscheme.cxx
@@ -2121,7 +2121,7 @@ void *wxSchemeYield(void *sema)
       return wxDispatchEventsUntilWaitable((wxDispatch_Check_Fun)NULL, NULL, (Scheme_Object *)sema);
     else {
       Scheme_Object *a[1];
-      a[0] = sema;
+      a[0] = (Scheme_Object *)sema;
       scheme_sync(1, a);
       return scheme_false;
     }