hang with graph notation

[GoogleCodeExporter]

What steps will reproduce the problem?
1. create the script

(import (core)
  (rnrs mutable-pairs (6)))

(write (let ((v '(1 #f)))
     (set-car! (cdr v) v)
     v))
(newline)

2. run it with or without --compatible flag

What is the expected output? What do you see instead?
ypsilon hangs (I have to sigkill it)

What version of the product are you using? On what operating system?
Ypsilon checkout 307 on i686-pc-linux-gnu

Please provide any additional information below.
I was working before.

Original issue reported on code.google.com by mrc....@gmail.com on 5 Dec 2008 at 10:14

[GoogleCodeExporter]

Thank you for your bug report!
It seems I made bug during optimization for cyclic object. :(
I will check it.
-- fujita

Original comment by y.fujita...@gmail.com on 6 Dec 2008 at 3:31

• Changed state: Started

[GoogleCodeExporter]

I have fixed the bug and trunk directory updated to revision 310. 
Please try. Thank you!
--fujita

Original comment by y.fujita...@gmail.com on 6 Dec 2008 at 4:35

• Changed state: Fixed