From eabf60be86513df75a08df8388099179c827b475 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 23 Jun 2021 06:40:26 -0700
Subject: cyr: broken on 64 bit.

* lib.c (cyr): We must use the cnum type for the mask, not int.
---
 lib.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib.c b/lib.c
index 75cb56d4..7c5b671a 100644
--- a/lib.c
+++ b/lib.c
@@ -1510,9 +1510,10 @@ val cyr(val addr, val obj)
     {
       cnum a = c_num(addr, self);
       if (a > 0) {
-        int m, h = highest_bit(a);
+        int h = highest_bit(a);
+	cnum m;
         if (h > 1) {
-          for (m = 1 << (h - 2); m != 0; m >>= 1)
+          for (m = convert(cnum, 1) << (h - 2); m != 0; m >>= 1)
             obj = if3((a & m) != 0, car(obj), cdr(obj));
         }
         return obj;
-- 
cgit v1.2.3