Commits

bergsoe committed d7954cb

Micro optimization.

Comments (0)

Files changed (1)

src/PaplInterpolate.ml

 
 let stop () = raise BatEnum.No_more_elements
 
-let flip_interpolate ip s a b = ip a b s
-
 let intermediary_steps interpolate (metric, eps) = (); fun a b ->
   let ip = interpolate a b in
   let len = metric a b in
       fun s -> ip1 s, ip2 s, ip3 s
 end
 
+let flip_interpolate ip s = (); fun a b -> ip a b s
+
 module List = struct
   let interpolate ip xs ys s =
     List.map2 (flip_interpolate ip s) xs ys