[Guile-commits] 06/11: Use new instructions for null?, nil?

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit c74b2257c7f43c6fd247113a277de3ef84e5f318
Author: Andy Wingo <address@hidden>
Date:   Fri Oct 27 15:02:46 2017 +0200

    Use new instructions for null?, nil?
    
    * module/language/cps/compile-bytecode.scm (compile-function): Use new
      instructions for branches on null? and nil?.
---
 module/language/cps/compile-bytecode.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/language/cps/compile-bytecode.scm 
b/module/language/cps/compile-bytecode.scm
index 966bb7c..c85fbd8 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -433,8 +433,8 @@
       (match exp
         (($ $values (sym)) (unary/old emit-br-if-true sym))
         (($ $primcall 'heap-object? (a)) (unary emit-heap-object? a))
-        (($ $primcall 'null? (a)) (unary/old emit-br-if-null a))
-        (($ $primcall 'nil? (a)) (unary/old emit-br-if-nil a))
+        (($ $primcall 'null? (a)) (unary emit-null? a))
+        (($ $primcall 'nil? (a)) (unary emit-nil? a))
         (($ $primcall 'pair? (a)) (unary emit-pair? a))
         (($ $primcall 'struct? (a)) (unary emit-struct? a))
         (($ $primcall 'char? (a)) (unary emit-char? a))