diff options
| -rw-r--r-- | generator/generator_ocaml.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generator/generator_ocaml.ml b/generator/generator_ocaml.ml index 23535924..a2b5aca6 100644 --- a/generator/generator_ocaml.ml +++ b/generator/generator_ocaml.ml @@ -342,7 +342,7 @@ copy_table (char * const * argv) pr " rv = caml_alloc (%ss->len, 0);\n" typ; pr " for (i = 0; i < %ss->len; ++i) {\n" typ; pr " v = copy_%s (&%ss->val[i]);\n" typ typ; - pr " caml_modify (&Field (rv, i), v);\n"; + pr " Store_field (rv, i, v);\n"; pr " }\n"; pr " CAMLreturn (rv);\n"; pr " }\n"; |