From 15314fdc07216df883f5735243801e36be8011c6 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 29 Aug 2018 20:29:57 +0200
Subject: [PATCH] Fix JIT compilation of shuffle-down

* libguile/jit.c (compile_shuffle_down): Fix compilation.
---
 libguile/jit.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/jit.c b/libguile/jit.c
index e6e899775..8657fc9b0 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -1374,7 +1374,7 @@ compile_shuffle_down (scm_jit_state *j, uint16_t from, uint16_t to)
   jit_ldr (t, walk);
   jit_stxi (offset, walk, t);
   jit_subi (walk, walk, sizeof (union scm_vm_stack_element));
-  back = jit_bltr (walk, SP);
+  back = jit_bger (walk, SP);
   jit_patch_at (back, head);
   jit_patch (done);
   jit_addi (SP, SP, offset);