equal? on cycles

[jcubic]

This creates infinite loop:

(let ((x (cons 1 (cons 2 '()))))
  (set-cdr! (cdr x) x)
  (equal? x x))

equal? should check if an object is the same cycle. And also check if there are two identical cycles.