Commit c48147af authored by Gérard Huet's avatar Gérard Huet

Impft ga.na 2 intercalate_2 becomes augment_ii

parent e5e3a4d6
......@@ -2444,9 +2444,10 @@ value intercalates root =
]
]
;
(* Whitney§631 \& §640 intercalating i in present system 2nd class *)
value intercalate_2 = fun
[ "an#2" | "praa.n#1" | "rud#1" | "zvas#1" | "svap" | "jak.s" -> True
(* Whitney§631-§640 Bandharkar II p44 augment ii in present system 2nd class *)
value augment_ii = fun (* *)
[ "an#2" | "rud#1" | "zvas#1" | "svap" | "jak.s" -> True
(* and thus "praa.n#1" too gives praa.niit *)
| _ -> False
]
;
......@@ -5078,7 +5079,7 @@ value compute_present_system entry rstem gana pada third =
| _ -> failwith "Anomaly Verbs"
] (* end of thematic conjugation *)
| 2 -> (* athematic conjugation: 2nd class (root class) *)
let set = intercalate_2 entry
let set = augment_ii entry
and sstem = strong_stem entry rstem
and wstem = if entry="as#1" then [ 48 ] else weak_stem entry rstem in do
{ match voices_of_gana 2 entry with
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment