summaryrefslogtreecommitdiff
blob: 4e94e5b84eb17931216273f9a456f8eeeeb1cf69 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Fix errors caused by wrong parameter type:
* File "mathexpr.ml", line 423, characters 55-56:
* Error: This expression has type int but an expression was expected of type
*          float

--- flashdot-1.1.4/mathexpr/mathexpr.ml
+++ flashdot-1.1.4/mathexpr/mathexpr.ml
@@ -419,7 +419,6 @@
 		| "NegativeBinomial" ->
 			let p = float'_of_string (aod cont_type "P" "1.0") in
 			let n = float'_of_string (aod cont_type "N" "1.0") in
-			(*uncomment this for ocamlgsl > 0.5 ::::let n = int_of_float n in::::*)
 			fun () -> foi  (Gsl_randist.negative_binomial rng p n)
 		| "Pascal" ->
 			let p = float'_of_string (aod cont_type "P" "1.0") in
@@ -4094,7 +4093,6 @@
 				| "NegativeBinomialPDF" ->
 					let p = float'_of_string (aod cont_type "P" "1.0") in
 					let n = float'_of_string (aod cont_type "N" "1.0") in
-					(*uncomment this for ocamlgsl > 0.5 ::::let n = int_of_float n in::::*)
 					fun x -> Gsl_randist.negative_binomial_pdf (int_of_float x) p n
 				| "PascalPDF" ->
 					let p = float'_of_string (aod cont_type "P" "1.0") in