Merge branch 'master' of https://git.cduce.org/cduce

tests/misc/polyfuns.cd

@@ -4,7 +4,7 @@ let fun f ( <a>l : T ) : Int = aux l;;
 
 let fun aux ([('A)*] -> Int)
    | [] -> 0
-   | (x,r) -> (aux r);;
+   | (_,r) -> (aux r);;
 
 let a = f <a>[ 10 15 20 ];;
 let b = f <a>[ 'a' 'b' 'c' ];;

typing/typer.ml

@@ -951,6 +951,7 @@ and type_check' loc env ed constr precise = match ed with
 
   | Apply (e1,e2) ->
       let t1 = type_check env e1 Types.Arrow.any true in 
+      let t1arrow = Types.Arrow.get t1 in
       let t1 = Types.Positive.substitutefree t1 in
 
       (* t [_delta 0 -> 1 *)
@@ -960,7 +961,6 @@ and type_check' loc env ed constr precise = match ed with
         raise_loc loc (Constraint (t1, Types.Arrow.any))
       end;
 
-      let t1arrow = Types.Arrow.get t1 in
       let dom = Types.Arrow.domain(t1arrow) in
       let res = 
         if not(Types.is_closed env.delta dom) then