mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-10 22:47:33 +02:00
typo in write-char opcode
This commit is contained in:
parent
f6c3d1d415
commit
eaf41d2ce8
1 changed files with 1 additions and 1 deletions
2
vm.c
2
vm.c
|
@ -1927,7 +1927,7 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
|
||||||
#if SEXP_USE_GREEN_THREADS
|
#if SEXP_USE_GREEN_THREADS
|
||||||
if ((sexp_port_stream(_ARG2) ? ferror(sexp_port_stream(_ARG2)) : 1)
|
if ((sexp_port_stream(_ARG2) ? ferror(sexp_port_stream(_ARG2)) : 1)
|
||||||
&& (errno == EAGAIN)) {
|
&& (errno == EAGAIN)) {
|
||||||
if (sexp_port_stream(_ARG1)) 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);
|
||||||
fuel = 0;
|
fuel = 0;
|
||||||
|
|
Loading…
Add table
Reference in a new issue