Minor compilation error

tests/lambda/src/compute.ml

@@ -58,7 +58,7 @@ let rec _to_typed env l expr =
           raise Error
       in
       let v = if Types.no_var vtype then Var(index, vname) else TVar(index, vname)
-      in env, l, { exp_loc=loc; exp_typ=t; exp_descr=v }
+      in env, l, { exp_loc=loc; exp_typ=vtype; exp_descr=v }
   | Int (_, i) ->
     let i = Big_int.big_int_of_int i in
     env, l, { exp_loc=loc; exp_typ=(type_of_string "Int");