GFCCtoJS in Devel

This commit is contained in:
aarne
2007-10-09 12:51:09 +00:00
parent 38a517aafa
commit f93c17c7b1
4 changed files with 91 additions and 2 deletions

View File

@@ -57,8 +57,11 @@ valCat :: Type -> CId
valCat ty = case ty of
DTyp _ val _ -> val
cid :: String -> CId
cid = CId
wildCId :: CId
wildCId = CId "_"
wildCId = cid "_"
exp0 :: Exp
exp0 = tree (AM 0) []