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

When write-char fails and no scheduler is loaded, wait 5ms to avoid busy looping.

Browse source
This commit is contained in:
Alex Shinn 2013-08-11 15:34:15 +09:00
parent af71abc817
commit e464f30ba2
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
vm.c
View file

@ -1941,6 +1941,8 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
if (sexp_port_stream(_ARG2)) clearerr(sexp_port_stream(_ARG2)); if (sexp_port_stream(_ARG2)) clearerr(sexp_port_stream(_ARG2));
if (sexp_applicablep(sexp_global(ctx, SEXP_G_THREADS_BLOCKER))) if (sexp_applicablep(sexp_global(ctx, SEXP_G_THREADS_BLOCKER)))
sexp_apply1(ctx, sexp_global(ctx, SEXP_G_THREADS_BLOCKER), _ARG2); sexp_apply1(ctx, sexp_global(ctx, SEXP_G_THREADS_BLOCKER), _ARG2);
else /* no scheduler but output full, wait 5ms */
usleep(5*1000);
fuel = 0; fuel = 0;
ip--; /* try again */ ip--; /* try again */
goto loop; goto loop;