Commits

Keigo Imai committed 61c3c71

similarly, changed make_call to accept expression rather than varname

Comments (0)

Files changed (2)

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" *)

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