(Pes) make Subj take indicative or subjunctive

2019-03-01 15:21:45 +01:00
parent a51a31ca7f
commit d005032374
10 changed files with 41 additions and 33 deletions
@@ -26,7 +26,7 @@ concrete SymbolPes of Symbol = CatPes ** open Prelude, ResPes in {
    compl = cn.compl ! Sg
    } ;

-  SymbS sy = sy ;
+  SymbS sy = {s = \\_ => sy.s} ;
  SymbNum sy = { s = sy.s ; n = Pl } ;
  SymbOrd sy = { s = sy.s ++ "wN" ; n = Pl; isNum=False} ;