From eaf41d2ce865020429a7a97f0581b88eaf7e2628 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
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;