diff options
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 ++ |