X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Fpure.ml;fp=ocaml%2Fpure.ml;h=7963f8732132a75bab5620326e1c193278af16ff;hb=5a57b32e5e068d05c1feb7455861bc8d5e4bd05a;hp=f1cac843e2349f15c1e5c4cf9c5dd00e3c05e4af;hpb=5cecab147f53f77dcf70a0f1845772d41cff1597;p=fireball-separation.git

diff --git a/ocaml/pure.ml b/ocaml/pure.ml
index f1cac84..7963f87 100644
--- a/ocaml/pure.ml
+++ b/ocaml/pure.ml
@@ -94,6 +94,7 @@ in
    let rec aux g =
     function
     (* mmm -> print_endline (print_machine mmm); match mmm with *)
+        m when unwind m = let d = L(A(V 0, V 0)) in A(d,d) -> [], B, []
      | (e,A(t1,t2),s) ->
          let t2' = aux g (e,t2,[]) in
          let (_,t,_) = t2' in