From 53e84610f17eb014badbd3977735f570aba26909 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 5 Nov 2008 22:00:08 +0000
Subject: [PATCH] Scandinavian indefinite modified form fix

---
 next-lib/src/scandinavian/NounScand.gf | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/next-lib/src/scandinavian/NounScand.gf b/next-lib/src/scandinavian/NounScand.gf
index 81516ef3a..dd6c39742 100644
--- 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