aboutsummaryrefslogtreecommitdiff
path: root/src/expressions
diff options
context:
space:
mode:
Diffstat (limited to 'src/expressions')
-rw-r--r--src/expressions/evaluate.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/expressions/evaluate.ml b/src/expressions/evaluate.ml
index 4cf98da..308a824 100644
--- a/src/expressions/evaluate.ml
+++ b/src/expressions/evaluate.ml
@@ -60,6 +60,7 @@ let get_argument: type a. a value -> a Functions.typ * a = function
| List (t, l) -> Functions.t_list (Functions.typ_of_format t), l
| Matrix (t, l) -> Functions.t_list (Functions.t_list (Functions.typ_of_format t)), l
+(** Convert the evaluation result in a type depending of the function parameters *)
let wrap_call (Functions.C.R(ret, res)) type_builder = begin
let returnType = ScTypes.ReturnType.guess_format_result ret type_builder in
begin match returnType with