[Guile-commits] 01/02: Fix bug in compilation of rsh/lsh

[Andy Wingo]

wingo pushed a commit to branch wip-tailify
in repository guile.

commit cd4d3865818cb62a4e4c72d2630115f7adb4b7a8
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Fri May 12 10:57:58 2023 +0200

    Fix bug in compilation of rsh/lsh
    
    * module/language/cps/compile-bytecode.scm (compile-function):
    The rsh/lsh patterns would never match.  I think these would end up
    dispatching through emit-text though.
---
 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 7bcd2427d..8e4e7efa3 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -238,9 +238,9 @@
          (emit-usub/immediate asm (from-sp dst) (from-sp (slot x)) y))
         (($ $primcall 'umul/immediate y (x))
          (emit-umul/immediate asm (from-sp dst) (from-sp (slot x)) y))
-        (($ $primcall 'rsh (x y))
+        (($ $primcall 'rsh #f (x y))
          (emit-rsh asm (from-sp dst) (from-sp (slot x)) (from-sp (slot y))))
-        (($ $primcall 'lsh (x y))
+        (($ $primcall 'lsh #f (x y))
          (emit-lsh asm (from-sp dst) (from-sp (slot x)) (from-sp (slot y))))
         (($ $primcall 'rsh/immediate y (x))
          (emit-rsh/immediate asm (from-sp dst) (from-sp (slot x)) y))