Revision 1.7 en plus simple.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1104 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1996-10-26 15:57:49 +00:00 · 1996-10-26 15:57:49 +00:00 · e452c0198a
parent 4540410697
commit e452c0198a
1 changed files with 1 additions and 3 deletions
--- a/bytecomp/translclass.ml
+++ b/bytecomp/translclass.ml
@ -126,6 +126,4 @@ let transl_class cl_id cl =
    Lapply (oo_prim "create_class", [Lvar cl_id; cl_init])

 let class_stub =
-  let unit = Ident.create "unit" in
-  Llet(Strict, unit, lambda_unit,
-  Lprim(Pmakeblock(0, Mutable), [Lvar unit; Lvar unit; Lvar unit]))
+  Lprim(Pmakeblock(0, Mutable), [lambda_unit; lambda_unit; lambda_unit])