Commits

Keigo Imai  committed 61c3c71

similarly, changed make_call to accept expression rather than varname

  • Participants
  • Parent commits 988d4b3

Comments (0)

Files changed (2)

File ojacare/src/camlgen/mlGen.ml

   match nargs with
     [] -> <:expr< $f$ () >>
   | nargs -> List.fold_left
-	(fun e narg -> <:expr< $e$ $Grammar.Entry.parse Pcaml.expr (Stream.of_string narg)$ >>)
+	(fun e narg -> <:expr< $e$ $narg$ >>)
 	f nargs
 
 (* Construction d'appel de fonction "super" *)

File ojacare/src/camlgen/mlGen.mli

-val make_call: MLast.expr -> string list -> MLast.expr
+val make_call: MLast.expr -> MLast.expr list -> MLast.expr
 val make_inherit : string -> string list -> MLast.class_str_item
 val make_fun : (string * Cidl.typ) list -> MLast.expr -> MLast.expr
 val make_callback_fun : (string * Cidl.typ) list -> MLast.expr -> MLast.expr