[fix infinite looping bug in unsafeCoerce optimizer
John Meacham <john@repetae.net>**20060723000057] hunk ./E/Values.hs 189
-    f n e t = (n,e,flip prim_unsafeCoerce t)
+    f n e t = (n,e,\z -> EPrim p_unsafeCoerce [z] t)