1 files changed, 0 insertions, 16 deletions
diff --git a/devel/compiler/SMacros.hs b/devel/compiler/SMacros.hs
deleted file mode 100644
index 46d778234..000000000
--- a/devel/compiler/SMacros.hs
+++ /dev/null
@@ -1,16 +0,0 @@
-module SMacros where
-
-import AbsSrc
-
-apps :: Exp -> (Exp,[Exp])
-apps e = (f,reverse xs) where
-  (f,xs) = aps e
-  aps e = case e of
-    EApp f x -> let (f',xs) = aps f in (f',x:xs)
-    _ -> (e,[])
-
-constr :: Ident -> [Exp] -> Exp
-constr = ECst
-
-mkApp :: Exp -> [Exp] -> Exp
-mkApp f = foldl EApp f