[Guile-commits] 01/01: Fix positional-arguments<=? compilation

[Andy Wingo]

wingo pushed a commit to branch lightning
in repository guile.

commit 46fe5b069b574e17e4cb47a76a4d9e8f0b6e8bc4
Author: Andy Wingo <address@hidden>
Date:   Mon Sep 10 16:28:31 2018 +0200

    Fix positional-arguments<=? compilation
    
    * libguile/jit.c (compile_check_positional_arguments): Fix.
---
 libguile/jit.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/jit.c b/libguile/jit.c
index 76a4740..951b415 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -3418,10 +3418,10 @@ compile_check_positional_arguments (scm_jit_state *j, 
uint32_t nreq, uint32_t ex
   emit_subtract_stack_slots (j, walk, FP, nreq);
   
   head = jit_label ();
-  emit_subtract_stack_slots (j, walk, walk, 1);
-  lt = jit_bltr (walk, SP);
   /* npos > expected if walk < min.  */
   gt = jit_bltr (walk, min);
+  emit_subtract_stack_slots (j, walk, walk, 1);
+  lt = jit_bltr (walk, SP);
   emit_ldr (j, obj, walk);
   jit_patch_at (emit_branch_if_immediate (j, obj), head);
   jit_patch_at (emit_branch_if_heap_object_not_tc7 (j, obj, obj, 
scm_tc7_keyword),