From a2a04ebefe54c93140d235950b4195c49ee5d147 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 20 Jul 2009 23:40:18 +0000
Subject: [PATCH] fix 'yield' in non-handler thread to return the right result

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

diff --git a/src/mred/wxs/wxscheme.cxx b/src/mred/wxs/wxscheme.cxx
index 9beedf11b2..66338b8d8b 100644
--- a/src/mred/wxs/wxscheme.cxx
+++ b/src/mred/wxs/wxscheme.cxx
@@ -2221,8 +2221,7 @@ void *wxSchemeYield(void *sema)
     else {
       Scheme_Object *a[1];
       a[0] = (Scheme_Object *)sema;
-      scheme_sync(1, a);
-      return scheme_false;
+      return scheme_sync(1, a);
     }
   } else {
     if (is_handler && wxYield())