X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Fnum.ml;fp=ocaml%2Fnum.ml;h=e7b6290fc64afb7efb7212ac1bc0536067c3a3ab;hb=0aaa773167c006689b00b9ff25f867ccbb1caa32;hp=66bdd8598f0d3ced253a46bce4d66ac2088080bd;hpb=9ad3734756bdab9ea23884a7bddbfaa599dbd3ae;p=fireball-separation.git

diff --git a/ocaml/num.ml b/ocaml/num.ml
index 66bdd85..e7b6290 100644
--- a/ocaml/num.ml
+++ b/ocaml/num.ml
@@ -118,7 +118,7 @@ let rec 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)
-   else if n < List.length l then List.nth l (n-lev)
+   else if n - lev < List.length l then List.nth l (n-lev)
     else "`" ^ string_of_int (n-lev) in
  let rec string_of_term_w_pars lev l  = function
   | `Var(n,ar) -> varname lev l n ^ (if debug_display_arities then ":" ^ string_of_int ar else "")