Scandinavian indefinite modified form fix

2008-11-05 22:00:08 +00:00
parent d38ed0da06
commit beb43387fe
1 changed files with 8 additions and 2 deletions
--- a/next-lib/src/scandinavian/NounScand.gf
+++ b/next-lib/src/scandinavian/NounScand.gf
@@ -52,8 +52,14 @@ incomplete concrete NounScand of Noun =
      det = quant.det
      } ;

-    DetQuant quant num = {
-      s = \\b,g => quant.s ! num.n ! b ! (orB b num.isDet) ! g ++ 
+    DetQuant quant num = 
+      let 
+        md : Bool -> Bool = \b -> case quant.det of {
+         DDef _ => orB b num.isDet ;
+         _ => False
+         }
+      in {
+      s = \\b,g => quant.s ! num.n ! b ! md b ! g ++ 
                   num.s ! g ;
      n = num.n ;
      det = quant.det