From 377c3e117e7fe9f48e3b913f9528513f4dda9d46 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 7 Sep 2018 14:22:48 +0200
Subject: [PATCH] Fix compilation of handle-interrupts

* libguile/jit.c (compile_handle_interrupts): Fix check for blocked
  interrupts.
---
 libguile/jit.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/jit.c b/libguile/jit.c
index c055bfe33..42d896152 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -3021,7 +3021,7 @@ compile_handle_interrupts (scm_jit_state *j)
 #endif
   none_pending = jit_beqi (T0, SCM_UNPACK (SCM_EOL));
   jit_ldxi_i (T0, THREAD, thread_offset_block_asyncs);
-  blocked = jit_beqi (T0, 0);
+  blocked = jit_bnei (T0, 0);
 
   emit_store_current_ip (j, T0);
   mra = emit_movi (j, T0, 0);