bug#71334: GNU Guile 3.0.7 bug report

Reproduce as follows: Using Ubuntu 22.04.

1. sudo apt install guile-3.0-dev

guile-3.0-dev is already the newest version (3.0.7-1).

2. Create a file run.scm with content as following:

(define (k n t) (logand (ash n t) 4294967295 ))(define run (lambda (q) (k (+ (ash (k q -96) 30) (ash (k q -96) -2)) 0)))

3. guild compile run.scm -o run

4. run guile and run the following code:

(load-compiled "run")(run 589567850402597453564513526754136399297876517360)

5. see error:

ice-9/boot-9.scm:1685:16: In procedure raise-exception:

Value out of range 0 to 18446744073709551615: -291772029874246942

Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue.