bug#13031: large numbers

[Mark H Weaver]

Hi Jozef,

Jozef Chraplewski <address@hidden> writes:
> It looks that guile returns incorrect results when it works with really big 
> numbers.

Please disregard my earlier request.  Can you please run the following
code and send us the output?

  (let ((modulus (expt 10 10)))
    (define (last10 n) (modulo n modulus))
    (let loop ((n 1) (sum 0))
      (if (> n 1000)
          (last10 sum)
          (let* ((term (expt n n))
                 (sum (+ sum term)))
            (format #t "address@hidden address@hidden address@hidden" n (last10 
term) (last10 sum))
            (loop (+ n 1) sum)))))

    Thanks,
      Mark