From 0bfb97851b95cd6a15ad798959f1b7b07dc95c24 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 26 Aug 2010 01:37:53 +0900
Subject: [PATCH] returning thread on thread-start!

---
 lib/srfi/18/threads.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/srfi/18/threads.c b/lib/srfi/18/threads.c
index 88da3307..eb6e98d3 100644
--- a/lib/srfi/18/threads.c
+++ b/lib/srfi/18/threads.c
@@ -80,7 +80,7 @@ sexp sexp_thread_start (sexp ctx sexp_api_params(self, n), sexp thread) {
   } else {			/* init queue */
     sexp_global(ctx, SEXP_G_THREADS_BACK) = sexp_global(ctx, SEXP_G_THREADS_FRONT) = cell;
   }
-  return SEXP_VOID;
+  return thread;
 }
 
 sexp sexp_thread_terminate (sexp ctx sexp_api_params(self, n), sexp thread) {