X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/fc2ec49c325b99370170789886b4be4f43e16d68..b8e89a384896a4f8ce3e1990a10c88e7164af55c:/documentation/code_VALInterpreter.extract_rate.html diff --git a/documentation/code_VALInterpreter.extract_rate.html b/documentation/code_VALInterpreter.extract_rate.html deleted file mode 100644 index 5020310..0000000 --- a/documentation/code_VALInterpreter.extract_rate.html +++ /dev/null @@ -1,28 +0,0 @@ - - - - - - - - - - - - - - - - -Interpreter.extract_rate - - -let extract_rate = fun beam ->
-          let rate_naive_list = List.map fst beam in
-        let correct_rate r = 
-                if r = 0 then 44100 
-                else if r > 0 then r
-                else raise (Evaluation_Error "Rec2")
-        in
-        let rate_list = List.map correct_rate rate_naive_list in
-        rate_list
\ No newline at end of file