removed one implicit dependency on mp_bits_per_limb in ikarus.bytevectors.ss

scheme/ikarus.bytevectors.ss

@@ -850,20 +850,11 @@
       (unless ($fx= i j)
         ($bytevector-set! x i 255)
         (bv-neg-zero! x ($fxadd1 i) j)))
-    (define (bignum-bytes n)
-      (let ([i ($bignum-size n)])
+    (define (bignum-bytes n) 
+      (let f ([n n] [i ($bignum-size n)])
         (let ([i-1 ($fxsub1 i)])
           (if ($fxzero? ($bignum-byte-ref n i-1))
-              (let ([i-2 ($fxsub1 i-1)])
-                (if ($fxzero? ($bignum-byte-ref n i-2))
-                    (let ([i-3 ($fxsub1 i-2)])
-                      (if ($fxzero? ($bignum-byte-ref n i-3))
-                          (let ([i-4 ($fxsub1 i-3)])
-                            (if ($fxzero? ($bignum-byte-ref n i-4))
-                                (die 'bignum-bytes "BUG: malformed bignum")
-                                i-3))
-                          i-2))
-                    i-1))
+              (f n i-1)
               i))))
     (define (make-bytevector-uint-set! who)
       (lambda (x k n endianness size)

scheme/last-revision

@@ -1 +1 @@
-1304
+1305