From eaf41d2ce865020429a7a97f0581b88eaf7e2628 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 26 Aug 2012 14:07:13 +0900 Subject: [PATCH] typo in write-char opcode --- vm.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/vm.c b/vm.c index f7e02403..a97d2378 100644 --- a/vm.c +++ b/vm.c @@ -1927,7 +1927,7 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) { #if SEXP_USE_GREEN_THREADS if ((sexp_port_stream(_ARG2) ? ferror(sexp_port_stream(_ARG2)) : 1) && (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))) sexp_apply1(ctx, sexp_global(ctx, SEXP_G_THREADS_BLOCKER), _ARG2); fuel = 0;