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/CommonScand.gf | |
| parent | b7f6393e9f9abaf8202f4adb8db12888202f969d (diff) | |
fixed warnings in present compilation of resource, esp. unreached patterns
Diffstat (limited to 'next-lib/src/scandinavian/CommonScand.gf')
| -rw-r--r-- | next-lib/src/scandinavian/CommonScand.gf | 6 |
1 files changed, 3 insertions, 3 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$. |