diff --git a/jscomp/runtime/dune b/jscomp/runtime/dune index 7cdf1e2cdc..a294fda4a7 100644 --- a/jscomp/runtime/dune +++ b/jscomp/runtime/dune @@ -33,16 +33,14 @@ (rule (target caml_oo_curry.ml) - (deps gen/caml_oo_curry_gen.ml) (action (with-stdout-to %{target} - (run ocaml %{deps})))) + (run ./gen/gen_caml_oo_curry.exe)))) (rule (target curry.ml) - (deps gen/curry_gen.ml) (action (with-stdout-to %{target} - (run ocaml %{deps})))) + (run ./gen/gen_curry.exe)))) diff --git a/jscomp/runtime/gen/dune b/jscomp/runtime/gen/dune new file mode 100644 index 0000000000..9ea2f53e73 --- /dev/null +++ b/jscomp/runtime/gen/dune @@ -0,0 +1,2 @@ +(executables + (names gen_caml_oo_curry gen_curry)) diff --git a/jscomp/runtime/gen/caml_oo_curry_gen.ml b/jscomp/runtime/gen/gen_caml_oo_curry.ml similarity index 96% rename from jscomp/runtime/gen/caml_oo_curry_gen.ml rename to jscomp/runtime/gen/gen_caml_oo_curry.ml index 0b49b47e53..fbc60c4715 100644 --- a/jscomp/runtime/gen/caml_oo_curry_gen.ml +++ b/jscomp/runtime/gen/gen_caml_oo_curry.ml @@ -55,7 +55,7 @@ let js%d label cacheid %s = let () = print_endline @@ Printf.sprintf "%s\n%s" prelude - (String.concat "\n" (list_init 8 (fun i -> generate_fun (i + 1)))) + (String.concat "\n" (list_init number (fun i -> generate_fun (i + 1)))) (* local variables: *) (* compile-command: "ocaml caml_oo_curry_gen.ml > ../jscomp/runtime/caml_oo_curry.ml" *) diff --git a/jscomp/runtime/gen/curry_gen.ml b/jscomp/runtime/gen/gen_curry.ml similarity index 100% rename from jscomp/runtime/gen/curry_gen.ml rename to jscomp/runtime/gen/gen_curry.ml