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

Impft ga.na 2 intercalate_2 becomes augment_ii

parent e5e3a4d6
...@@ -2444,10 +2444,11 @@ value intercalates root = ...@@ -2444,10 +2444,11 @@ value intercalates root =
] ]
] ]
; ;
(* Whitney§631 \& §640 intercalating i in present system 2nd class *) (* Whitney§631-§640 Bandharkar II p44 augment ii in present system 2nd class *)
value intercalate_2 = fun value augment_ii = fun (* *)
[ "an#2" | "praa.n#1" | "rud#1" | "zvas#1" | "svap" | "jak.s" -> True [ "an#2" | "rud#1" | "zvas#1" | "svap" | "jak.s" -> True
| _ -> False (* and thus "praa.n#1" too gives praa.niit *)
| _ -> False
] ]
; ;
...@@ -5078,7 +5079,7 @@ value compute_present_system entry rstem gana pada third = ...@@ -5078,7 +5079,7 @@ value compute_present_system entry rstem gana pada third =
| _ -> failwith "Anomaly Verbs" | _ -> failwith "Anomaly Verbs"
] (* end of thematic conjugation *) ] (* end of thematic conjugation *)
| 2 -> (* athematic conjugation: 2nd class (root class) *) | 2 -> (* athematic conjugation: 2nd class (root class) *)
let set = intercalate_2 entry let set = augment_ii entry
and sstem = strong_stem entry rstem and sstem = strong_stem entry rstem
and wstem = if entry="as#1" then [ 48 ] else weak_stem entry rstem in do and wstem = if entry="as#1" then [ 48 ] else weak_stem entry rstem in do
{ match voices_of_gana 2 entry with { 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