From eec9c5eac89cba6a4093dbb8a38725005ada26f1 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sat, 15 May 2010 17:10:41 +0000
Subject: [PATCH] correction in Scand definiteness with Ord

---
 src/scandinavian/NounScand.gf | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/scandinavian/NounScand.gf b/src/scandinavian/NounScand.gf
index 4a5317e02..0bfedbea6 100644
--- a/src/scandinavian/NounScand.gf
+++ b/src/scandinavian/NounScand.gf
@@ -51,7 +51,10 @@ incomplete concrete NounScand of Noun =
       sp = \\b,g => quant.s ! num.n ! b ! True ! g ++ 
                     num.s ! g ++ ord.s ;
       n = num.n ;
-      det = DDef detDef ---- quant.det
+      det = case quant.det of {
+        DDef Def => DDef detDef ;
+        d => d
+        }
       } ;
 
     DetQuant quant num =