basic_rg: reduction was not tail recursive by mistake

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

diff --git a/helm/software/lambda-delta/basic_rg/brgEnvironment.mli b/helm/software/lambda-delta/basic_rg/brgEnvironment.mli
index 5f5d86bf37fc85a600290c252c0289d15b68357e..1f51f1e61e32f1860e5229eaccc728ba30d08852 100644 (file)
--- a/helm/software/lambda-delta/basic_rg/brgEnvironment.mli
+++ b/helm/software/lambda-delta/basic_rg/brgEnvironment.mli
@@ -9,6 +9,6 @@
      \ /   This software is distributed as is, NO WARRANTY.              
       V_______________________________________________________________ *)
 
-val set_entity: (Brg.entity -> 'a) -> Brg.entity -> 'a
+val set_entity: Brg.entity -> Brg.entity
 
-val get_entity: (unit -> 'a) -> (Brg.entity -> 'a) -> Brg.uri -> 'a
+val get_entity: Brg.uri -> Brg.entity