Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

setting default context event to #f (otherwise thread-sleep! will crash)

Browse source
This commit is contained in:
Alex Shinn 2010-12-27 13:03:59 +00:00
parent a9678e5378
commit 754f21ddcf
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
sexp.c
View file

@ -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_depth(res)=sexp_context_tracep(res)=sexp_context_pos(res)=0;
sexp_context_tailp(res) = 1; sexp_context_tailp(res) = 1;
#if SEXP_USE_GREEN_THREADS #if SEXP_USE_GREEN_THREADS
sexp_context_event(res) = SEXP_FALSE;
sexp_context_refuel(res) = SEXP_DEFAULT_QUANTUM; sexp_context_refuel(res) = SEXP_DEFAULT_QUANTUM;
#endif #endif
if (ctx) { 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) { sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
#if SEXP_USE_HUFF_SYMS #if SEXP_USE_HUFF_SYMS
unsigned long res, c; unsigned long res;
#endif #endif
unsigned long len; unsigned long len, c;
long i=0; long i=0;
double f; double f;
sexp x, *elts; sexp x, *elts;