remove useless call to Modify

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@11982 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2011-12-30 16:29:14 +00:00 · 2011-12-30 16:29:14 +00:00 · 334a2fdbe6
parent 51ca775aa8
commit 334a2fdbe6
1 changed files with 1 additions and 1 deletions
--- a/byterun/obj.c
+++ b/byterun/obj.c
@ -191,7 +191,7 @@ CAMLprim value caml_lazy_make_forward (value v)
  CAMLlocal1 (res);

  res = caml_alloc_small (1, Forward_tag);
-  Modify (&Field (res, 0), v);
+  Field (res, 0) = v;
  CAMLreturn (res);
 }