generalize the Card category

2018-07-05 13:01:17 +02:00
parent c456ea3b11
commit dcd0490180
3 changed files with 6 additions and 6 deletions
@@ -29,7 +29,7 @@ lin

  SymbS sy = sy ; 

-  SymbNum sy = {s = \\_ => sy.s; n = Pl; nonEmpty = True} ;
+  SymbNum sy = {s = \\_ => sy.s; nn = NNum Pl} ;
  SymbOrd sy = {s = \\aform => sy.s ++ "-" ++ 
                               case aform of {
                                 ASg Masc Indef => "òè" ;