[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / programs / jeff-bug / IFU.hs

diff --git a/ghc/tests/programs/jeff-bug/IFU.hs b/ghc/tests/programs/jeff-bug/IFU.hs
deleted file mode 100644 (file)
index 5975e0e..0000000
--- a/ghc/tests/programs/jeff-bug/IFU.hs
+++ /dev/null
@@ -1,27 +0,0 @@
-module IFU where
-
-
-import LazyST
-import Ix
-
-import Trans
-import Hawk
-import DLX
-
-import qualified PreludeSig as Signaled
-
-import Word
-
-
-
-ifu (a,b) c d = (unique',id) >< fetch (4,dlx2trans,a,b) c d
-
-unique' ts = runST (
-  do { v <- newSTRef 1
-     ; step1(ts) { mapM (\(Trans x y z i)  -> do { v' <- readSTRef v
-                                  ; writeSTRef v (v'+1)
-                                  ; return $ Trans x y z (loc v':i)
-                                  }) ts
-                 }
-     }
-  )