Started with unions.

This commit is contained in:
aarne
2004-02-27 07:43:52 +00:00
parent 2e1b578783
commit 0166b27ee4
14 changed files with 1324 additions and 1182 deletions

View File

@@ -79,5 +79,5 @@ oldLexer = map change . L.tokens where
(L.PT p (L.TS s)) | elem s new -> (L.PT p (L.TV (init s ++ "Z")))
_ -> t
new = words $ "abstract concrete interface incomplete " ++
"instance out open resource reuse transfer with where"
"instance out open resource reuse transfer union with where"