From 3f8930f11580e7b9ad26f8ead183aaf2e0022ae3 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

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

diff --git a/lib/src/scandinavian/NounScand.gf b/lib/src/scandinavian/NounScand.gf
index 4a5317e02..0bfedbea6 100644
--- a/lib/src/scandinavian/NounScand.gf
+++ b/lib/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 =