- basic_rg: architectural bug fix

[helm.git] / helm / software / lambda-delta / basic_rg / brgUntrusted.ml

diff --git a/helm/software/lambda-delta/basic_rg/brgUntrusted.ml b/helm/software/lambda-delta/basic_rg/brgUntrusted.ml
index d08209f120e28ad62a24242ca5c885335af24a8e..80a9d4fe78d67433636b98e34155c5ce8e600eb6 100644 (file)
--- a/helm/software/lambda-delta/basic_rg/brgUntrusted.ml
+++ b/helm/software/lambda-delta/basic_rg/brgUntrusted.ml
@@ -11,7 +11,6 @@
 
 module B = Brg
 module E = BrgEnvironment
-module R = BrgReduction
 module T = BrgType
 
 (* Interface functions ******************************************************)
@@ -22,5 +21,5 @@ let type_check f g = function
    | Some ((_, _, B.Abbr t) as obj) ->
        let f tt obj = f (Some (tt, obj)) in
        let f tt = E.set_obj (f tt) obj in
-       T.type_of f g R.empty_context t
+       T.type_of f g B.empty_context t
    | Some (_, _, B.Void)            -> assert false