(Som) Fix sp forms in defIQuant

This commit is contained in:
Inari Listenmaa
2019-09-03 11:24:56 +02:00
parent dc33b2869a
commit 19ae07b9a7

View File

@@ -328,7 +328,9 @@ oper
defIQuant : Str -> Quant = \ee ->
let quantRaw = defQuant ee ("k"+ee) ("t"+ee) ("kuw"+ee) False
in quantRaw ** {s = \\da,c => quantRaw.s ! da ! Abs} ;
in quantRaw ** {
s = \\da,c => quantRaw.s ! da ! Abs ;
sp = \\gn,c => quantRaw.sp ! gn ! Abs } ;
gnTable : (m,f,p : Str) -> (GenNum => Str) = \m,f,p ->
table {SgMasc => m ; SgFem => f ; _ => p} ;