Note:

You are viewing a development version of the library. Goto the latest version.

let test ?match_compile tst =
  let ctst = 
    compile_filter ?match_compile tst
  in
    fun fln -> ctst (solve_dirname fln)