diff options
author | Andy Wingo <wingo@pobox.com> | 2023-05-12 10:57:58 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2023-06-19 13:53:01 +0200 |
commit | db826ab909c437c20c4365d0404ab8b853beb07c (patch) | |
tree | 2891094fc40c656d37fe8dd9e4b1182cbfc7744b /module/language/cps | |
parent | 2cd8b4160c4f8b2f3b590f29f82c64dd4a1e2290 (diff) | |
download | guile-db826ab909c437c20c4365d0404ab8b853beb07c.tar.gz |
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.
Diffstat (limited to 'module/language/cps')
-rw-r--r-- | module/language/cps/compile-bytecode.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm index 53a252444..494bb5a0c 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)) |