basic_rg: reduction was not tail recursive by mistake

[helm.git] / helm / software / lambda-delta / basic_rg / brgType.mli

diff --git a/helm/software/lambda-delta/basic_rg/brgType.mli b/helm/software/lambda-delta/basic_rg/brgType.mli
index 2d7a14663e27126ef76a09febbef7396ba72b8c2..b235b47e90f0ecd6b040b4a310858527fc6151b5 100644 (file)
--- a/helm/software/lambda-delta/basic_rg/brgType.mli
+++ b/helm/software/lambda-delta/basic_rg/brgType.mli
@@ -13,4 +13,4 @@ type message = (BrgReduction.kam, Brg.term) Log.message
 
 val type_of: 
    (message -> 'a) -> (Brg.term -> Brg.term -> 'a) -> 
-   ?si:bool -> Hierarchy.graph -> BrgReduction.kam -> Brg.term -> 'a
+   Entity.status -> Hierarchy.graph -> BrgReduction.kam -> Brg.term -> 'a