eval_thunk_selector: strange selectee 29

[Yitzchak Gale]

Hi,

As requested, I am reporting the following bug that appeared
during a ghci session on a Debian testing box.

Regards,
Yitz
   ___         ___ _
  / _ \ /\  /\/ __(_)
 / /_\// /_/ / /  | |      GHC Interactive, version 6.0.1, for Haskell 98.
/ /_\\/ __  / /___| |      http://www.haskell.org/ghc/
\____/\/ /_/\____/|_|      Type :? for help.
 
Loading package base ... linking ... done.
Prelude> replicate 5 "foo"
["foo","foo","foo","foo","foo"]
Prelude> do {a <- sequence (replicate 10 (System.Random.getStdRandom 
(System.Random.randomR (1::Int, 5)))); print a}
[2,1,1,4,3,3,2,4,4,3]
Prelude> do {a <- sequence (replicate 10 (System.Random.getStdRandom 
(System.Random.randomR (1::Int, 5)))); print a}
[1,2,2,2,1,4,2,1,4,3]
Prelude> do {a <- sequence (replicate 10 (System.Random.getStdRandom 
(System.Random.randomR (1::Int, 5)))); print a}
[4,1,3,4,2,4,4,2,4,2]
Prelude> do {a <- sequence (replicate 10 (System.Random.getStdRandom 
(System.Random.randomR (1::Int, 5)))); print a}
[3,4,4,1,5,1,4,2,1,1]
Prelude> do {a <- sequence (replicate 10 (System.Random.getStdRandom 
(System.Random.randomR (1::Int, 5)))); print a}
[2,4,3,2,2,4,1,4,4,2]
Prelude> do {a <- sequence (replicate 10 (System.Random.getStdRandom 
(System.Random.randomR (1::Int, 5)))); print a}
[5,4,2,3,4,1,5,3,3,1]
Prelude> do {a <- sequence (repeat (System.Random.getStdRandom 
(System.Random.randomR (1::Int, 5)))); print (take 10 a)}
Interrupted.
Prelude> do {a <- sequence (replicate 10 (System.Random.randomRIO 
(1::Int, 5))); print a}
[*** Exception: stack overflow
Prelude> do {a <- sequence (replicate 10 (System.Random.randomRIO 
(1::Int, 5))); print a}
<interactive>: internal error: eval_thunk_selector: strange selectee 29
    Please report this as a bug to glasgow-haskell-bugs at haskell.org,
    or http://www.sourceforge.net/projects/ghc/