Fix lifting bug in unwind

[fireball-separation.git] / ocaml / pure.ml

diff --git a/ocaml/pure.ml b/ocaml/pure.ml
index e04b4eac7baedccd62054516e58068087178f5fa..be08bb4ae3086086e704824d2636c9d843c38409 100644 (file)
--- a/ocaml/pure.ml
+++ b/ocaml/pure.ml
@@ -75,7 +75,7 @@ let unwind ?(tbl = Hashtbl.create 317) m =
     | V n ->
        (try
          lift l (cache_unwind (List.nth e (n - l)))
-        with Failure _ -> V (n - l))
+        with Failure _ -> V n)
     | L t -> L (aux (l+1) t)
     | B -> B in
   let t = aux 0 t in