- procedural: basic support for lapply (solves a problem in the reconstruction of...

[helm.git] / helm / software / components / acic_procedural / proceduralTeX.ml

diff --git a/helm/software/components/acic_procedural/proceduralTeX.ml b/helm/software/components/acic_procedural/proceduralTeX.ml
index 5f4d8d150d0cff31f3e2dbe3018d6553412b186e..294fefb045f747da13590401c42e01be32a5655a 100644 (file)
--- a/helm/software/components/acic_procedural/proceduralTeX.ml
+++ b/helm/software/components/acic_procedural/proceduralTeX.ml
@@ -202,6 +202,8 @@ let rec xl frm = function
       F.fprintf frm "\\Intro{%a}{%a}" xx r xl l
    | T.LetIn (r, v, _) :: l                                ->
       F.fprintf frm "\\Pose{%a}{%a}{%a}" xx r xat v xl l
+   | T.LApply (r, v, _) :: l                               ->
+      F.fprintf frm "\\LApply{%a}{%a}{%a}" xx r xat v xl l
    | T.Change (u, _, None, _, _) :: l                      ->
       F.fprintf frm "\\Change{%a}{}{%a}" xat u xl l
    | T.Change (u, _, Some (s, _), _, _) :: l               ->