From 754f21ddcfc223f3b3c453de48c1bdab845434b5 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 27 Dec 2010 13:03:59 +0000
Subject: [PATCH] setting default context event to #f (otherwise thread-sleep!
 will crash)

---
 sexp.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/sexp.c b/sexp.c
index 7793bc34..db994d69 100644
--- a/sexp.c
+++ b/sexp.c
@@ -331,6 +331,7 @@ sexp sexp_make_context (sexp ctx, size_t size) {
   sexp_context_depth(res)=sexp_context_tracep(res)=sexp_context_pos(res)=0;
   sexp_context_tailp(res) = 1;
 #if SEXP_USE_GREEN_THREADS
+  sexp_context_event(res) = SEXP_FALSE;
   sexp_context_refuel(res) = SEXP_DEFAULT_QUANTUM;
 #endif
   if (ctx) {
@@ -1249,9 +1250,9 @@ sexp sexp_make_output_port (sexp ctx, FILE* out, sexp name) {
 
 sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
 #if SEXP_USE_HUFF_SYMS
-  unsigned long res, c;
+  unsigned long res;
 #endif
-  unsigned long len;
+  unsigned long len, c;
   long i=0;
   double f;
   sexp x, *elts;