[project @ 1997-07-30 23:52:45 by sof]

[ghc-hetmet.git] / ghc / compiler / tests / deSugar / ds035.hs

diff --git a/ghc/compiler/tests/deSugar/ds035.hs b/ghc/compiler/tests/deSugar/ds035.hs
deleted file mode 100644 (file)
index 5a29a0e..0000000
--- a/ghc/compiler/tests/deSugar/ds035.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-data CList = CNil | CCons Int# CList
-
-mk :: Int# -> CList
-mk n = case (n ==# 0#) of
-       0# -> CNil
-       _  -> CCons 1# (mk (n `minusInt#` 1#))
-
-clen :: CList -> Int#
-clen CNil = 0#
-clen (CCons _ cl) = 1# +# (clen cl)
-
-main = case len4_twice of
-           8# -> "bingo\n"
-           _  -> "oops\n"
-  where
-    list4      = mk 4#
-    len4       = clen list4
-    len4_twice = len4 +# len4