debugging gfcc bug; resulted in some type annotations to work around problems

2007-11-09 14:02:11 +00:00
parent 3cbaf00c3c
commit ce975919c9
6 changed files with 24 additions and 10 deletions
--- a/lib/resource-1.0/swedish/DiffSwe.gf
+++ b/lib/resource-1.0/swedish/DiffSwe.gf
@@ -9,8 +9,19 @@ instance DiffSwe of DiffScand = open CommonScand, Prelude in {
    utrum = Utr ; 
    neutrum = Neutr ;

+    gennumN : Gender -> Number -> GenNum = \g,n -> Plg ; -----
    gennum : Gender -> Number -> GenNum = \g,n ->
-      case <g,n> of {
+{-
+--- debugging Compute 9/11/2007
+      case n of {
+        Sg => case g of {
+          Utr => SgUtr ;
+          Neutr => SgNeutr
+          } ;
+        _  => Plg
+        } ;
+-}
+      case <<g,n> : Gender * Number> of {
        <Utr,Sg> => SgUtr ;
        <Neutr,Sg> => SgNeutr ;
        _  => Plg