Removed warning

diff --git a/ocaml/num.ml b/ocaml/num.ml
index cc30cb5c4f2ae5d18adacd81d8a00157d44e025c..dda88a78fe8ddd34253ca7e5f0fe33a36837b327 100644 (file)
--- a/ocaml/num.ml
+++ b/ocaml/num.ml
@@ -104,7 +104,7 @@ let rec t_of_i_num_var =
       let bs = List.map (
         function (n,t) -> n,
          (if t = !bomb then delta
-          else L (t_of_nf (lift (liftno+1) t)))
+          else Pure.L (t_of_nf (lift (liftno+1) t)))
         ) !bs in
       let t = t_of_i_num_var t in
       let m = Scott.mk_match t bs in