Skip to content
Snippets Groups Projects
Commit 4a782b94 authored by François Bobot's avatar François Bobot Committed by David Bühler
Browse files

[Eva] puts the documentations in the .mli

      which was already present...
parent 16d2d159
No related branches found
No related tags found
No related merge requests found
...@@ -240,9 +240,6 @@ type ('loc, 'value) call = { ...@@ -240,9 +240,6 @@ type ('loc, 'value) call = {
arguments: ('loc, 'value) argument list; arguments: ('loc, 'value) argument list;
rest: (exp * ('loc, 'value) assigned) list; rest: (exp * ('loc, 'value) assigned) list;
return: varinfo option; return: varinfo option;
(** Special variable (same for all calls) that makes the
link between the result of the function and the assignment in
the caller. *)
recursive: bool; recursive: bool;
} }
......
...@@ -214,7 +214,9 @@ type ('loc, 'value) call = { ...@@ -214,7 +214,9 @@ type ('loc, 'value) call = {
arguments: ('loc, 'value) argument list; (** The arguments of the call. *) arguments: ('loc, 'value) argument list; (** The arguments of the call. *)
rest: (exp * ('loc, 'value) assigned) list; (** Extra-arguments. *) rest: (exp * ('loc, 'value) assigned) list; (** Extra-arguments. *)
return: varinfo option; (** Fake varinfo to store the return: varinfo option; (** Fake varinfo to store the
return value of the call. *) return value of the call.
Same varinfo for every
call to a function. *)
recursive: bool; recursive: bool;
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment