(Eng) Automatic whitespace removal

This commit is contained in:
Inari Listenmaa
2021-06-17 20:14:07 +08:00
parent a3701d1a48
commit 60533ef002
26 changed files with 269 additions and 268 deletions
+3 -3
View File
@@ -2,8 +2,8 @@
resource MakeStructuralEng = open CatEng, ParadigmsEng, ResEng, MorphoEng, Prelude in {
oper
mkSubj : Str -> Subj = \x ->
oper
mkSubj : Str -> Subj = \x ->
lin Subj {s = x} ;
mkNP : Str -> ParadigmsEng.Number -> NP = \s,n ->
lin NP (regNP s n) ;
@@ -11,7 +11,7 @@ oper
lin IDet {s = s ; n = n} ;
mkIQuant : Str -> Str -> IQuant = \s,n ->
lin IQuant {s = table {Sg => s ; Pl => n}} ;
mkDet = overload {
mkDet : Str -> Det = \s ->
lin Det (mkDeterminer singular s) ;