]> matita.cs.unibo.it Git - helm.git/commitdiff
patch to make it compile with recent OCaml versions
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Thu, 28 Dec 2017 18:06:07 +0000 (19:06 +0100)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Thu, 28 Dec 2017 18:06:07 +0000 (19:06 +0100)
helm/software/components/ng_kernel/nCicUntrusted.ml

index 82f7cef800fc8874467d972dd40f2c29bb0d22e2..022482b0a9e60c44e20398d586b74bd9ddaa9e2a 100644 (file)
@@ -271,9 +271,9 @@ let rec replace_in_subst i f = function
   | (j,e)::tl when j=i -> (i,f e) :: tl
   | x::tl -> x :: replace_in_subst i f tl
 ;;
-          
+
 let set_kind newkind attrs = 
-  newkind :: List.filter (fun x -> not (is_kind x)) attrs 
+  (newkind :> NCic.meta_attr) :: List.filter (fun x -> not (is_kind x)) attrs 
 ;;
 
 let max_kind k1 k2 =