diff options
| author | aarne <aarne@chalmers.se> | 2009-06-22 14:30:55 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-06-22 14:30:55 +0000 |
| commit | f8fdaa7accef4c6935e5ecdf9ef292b1f7b2901b (patch) | |
| tree | abef31c1b21ad7bbfa891083130496d72f80dab4 /next-lib/src/scandinavian | |
| parent | b7f6393e9f9abaf8202f4adb8db12888202f969d (diff) | |
fixed warnings in present compilation of resource, esp. unreached patterns
Diffstat (limited to 'next-lib/src/scandinavian')
| -rw-r--r-- | next-lib/src/scandinavian/CommonScand.gf | 6 | ||||
| -rw-r--r-- | next-lib/src/scandinavian/NounScand.gf | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/next-lib/src/scandinavian/CommonScand.gf b/next-lib/src/scandinavian/CommonScand.gf index 9aa52f74c..d56d7ee1d 100644 --- a/next-lib/src/scandinavian/CommonScand.gf +++ b/next-lib/src/scandinavian/CommonScand.gf @@ -101,9 +101,9 @@ oper -- Used in $DiffScand.predV$. vFin : Tense -> Voice -> VForm = \t,v -> case t of { - Pres => VF (VPres v) ; - Past => VF (VPret v) ; --# notpresent - _ => VI (VInfin v) --- not to be used? + Pres => VF (VPres v) + ; --# notpresent + Past => VF (VPret v) --# notpresent } ; -- Used in $ConjunctionScand$. diff --git a/next-lib/src/scandinavian/NounScand.gf b/next-lib/src/scandinavian/NounScand.gf index bbb1f3a0c..4cd697eae 100644 --- a/next-lib/src/scandinavian/NounScand.gf +++ b/next-lib/src/scandinavian/NounScand.gf @@ -58,8 +58,8 @@ incomplete concrete NounScand of Noun = let md : Bool -> Bool = \b -> case quant.det of { DDef _ => orB b num.isDet ; - DIndef => num.isDet ; - _ => False + DIndef => num.isDet + -- _ => False } in { s = \\b,g => quant.s ! num.n ! b ! md b ! g ++ |