bug#29387: Guile-2.2.2 complex numbers edge case

[Jan Wedekind]

Hi,
I think I encountered a bug in the numerical stack.
i times i should equal -1:

    (equal? -1 (* 0+i 0+i))
    ; #f

i times i plus one is zero (which is correct):
    (zero? (+ (* 0+i 0+i) 1))
    ; #t

Regards
Jan