diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-27 11:59:03 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-27 11:59:03 +0000 |
| commit | 73e401cee21fa61dcf9900d8d2b40ddd39f4e612 (patch) | |
| tree | c5569db477fd0281162fd7ba29cf8e60d24b364e /devel/compiler/SMacros.hs | |
| parent | 64d2a981a99c8f48f85c4efd0cecd1db1e5ce93a (diff) | |
updated synopsis, removed GF/devel/
Diffstat (limited to 'devel/compiler/SMacros.hs')
| -rw-r--r-- | devel/compiler/SMacros.hs | 16 |
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 |