X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Fautomath%2FautProcess.ml;h=405952ff5b8b00b1d9b35d63c78000a33e7f954d;hb=4efe53bc2098939c255d5b03941212549f89a1bd;hp=87fe418650e6779603def9db0e1dd72c32d94ca4;hpb=ca9fe133125cb84c5223029995cb72e973a2d695;p=helm.git

diff --git a/helm/software/lambda-delta/automath/autProcess.ml b/helm/software/lambda-delta/automath/autProcess.ml
index 87fe41865..405952ff5 100644
--- a/helm/software/lambda-delta/automath/autProcess.ml
+++ b/helm/software/lambda-delta/automath/autProcess.ml
@@ -57,21 +57,21 @@ let proc_global f st =
    in
    exp_count f st
 
-let proc_item f st item = match item with
-   | A.Section section -> proc_section f st section item
-   | A.Context _       -> proc_context f st item  
-   | A.Block _         -> proc_block f st item
-   | A.Decl _          -> proc_global f st item
-   | A.Def _           -> proc_global f st item
+let proc_command f st command = match command with
+   | A.Section section -> proc_section f st section command
+   | A.Context _       -> proc_context f st command  
+   | A.Block _         -> proc_block f st command
+   | A.Decl _          -> proc_global f st command
+   | A.Def _           -> proc_global f st command
    
 (* interface functions ******************************************************)
 
-let initial_status = {
+let initial_status () = {
    opening = false; reopening = false; closing = false; 
    explicit = false; block = false;
    iao = 0; iar = 0; iac = 0; iag = 0
 }
 
-let process_item = proc_item
+let process_command = proc_command
 
 let get_counters f st = f st.iao st.iar st.iac st.iag