[Guile-commits] 01/09: Fix baseline miscompilation of <

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit c0a27de50dce17624fb7541a6f2603a5ecf2b214
Author: Andy Wingo <address@hidden>
AuthorDate: Mon May 11 13:18:50 2020 +0200

    Fix baseline miscompilation of <
    
    * module/language/tree-il/compile-bytecode.scm: Fix < miscompilation.
---
 module/language/tree-il/compile-bytecode.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/tree-il/compile-bytecode.scm 
b/module/language/tree-il/compile-bytecode.scm
index 9549ca6..6e12a52 100644
--- a/module/language/tree-il/compile-bytecode.scm
+++ b/module/language/tree-il/compile-bytecode.scm
@@ -309,7 +309,7 @@
                                                         (emit-jne asm kf)))
   (<                #:nargs 2 #:predicate? #t  #:emit (lambda (asm a b kf)
                                                         (emit-<? asm a b)
-                                                        (emit-jl asm kf)))
+                                                        (emit-jnl asm kf)))
   (<=               #:nargs 2 #:predicate? #t  #:emit (lambda (asm a b kf)
                                                         (emit-<? asm b a)
                                                         (emit-jnge asm kf)))