Reproduction:
scheme@(guile-user)> (import (scheme base))
scheme@(guile-user)> (read-u8)
ice-9/boot-9.scm:1685:16: In procedure raise-exception:
In procedure get-u8: Wrong type argument in position 1 (expecting open input
port): #
Expected: (read-u8) should read a byte from the input port, not t
Reproduction:
(let ((xs '(1)))
(set-car! xs 0))
or
(let ((xs '(1 2)))
(set-car! (cdr xs) 0))
Guile will segfault executing this code, and only when set-car! is called on
the last node. I believe the expectation is that it does not segfault and xs
will be modified to (0) o
