X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Fnum.ml;h=cc30cb5c4f2ae5d18adacd81d8a00157d44e025c;hb=88cd6d9b202287ce43ffab571a6a63d7c8dc6de1;hp=8ecf12491be1d9931dfdc39fbbe4c9403f391008;hpb=5a57b32e5e068d05c1feb7455861bc8d5e4bd05a;p=fireball-separation.git

diff --git a/ocaml/num.ml b/ocaml/num.ml
index 8ecf124..cc30cb5 100644
--- a/ocaml/num.ml
+++ b/ocaml/num.ml
@@ -123,7 +123,7 @@ end
 
 (* let rec string_of_term l  = fun _ -> "";; *)
 
-let rec string_of_term =
+let string_of_term =
  let boundvar x = "v" ^ string_of_int x in
  let varname lev l n =
   if n < lev then boundvar (lev-n-1)
@@ -148,7 +148,8 @@ let rec string_of_term =
  and string_of_term_no_pars lev l = function
   | `Lam _ as t -> string_of_term_no_pars_lam lev l t
   | #nf as t -> string_of_term_no_pars_app lev l t
- in string_of_term_no_pars 0
+ and string_of_term t = string_of_term_no_pars 0 t in
+ string_of_term
 ;;
 
 let print ?(l=[]) = string_of_term l;;