From 666cb14adfcf3b37e775ba59030444f8b3c86cfc Mon Sep 17 00:00:00 2001 From: Michel Mauny Date: Fri, 1 Aug 2008 16:57:10 +0000 Subject: Implement Lazy.force as a primitive, and optimize its calls. git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8974 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- bytecomp/printlambda.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'bytecomp/printlambda.ml') diff --git a/bytecomp/printlambda.ml b/bytecomp/printlambda.ml index 80cc7d3f6..0d6e19148 100644 --- a/bytecomp/printlambda.ml +++ b/bytecomp/printlambda.ml @@ -103,6 +103,7 @@ let primitive ppf = function | Pfloatfield n -> fprintf ppf "floatfield %i" n | Psetfloatfield n -> fprintf ppf "setfloatfield %i" n | Pduprecord (rep, size) -> fprintf ppf "duprecord %a %i" record_rep rep size + | Plazyforce -> fprintf ppf "force" | Pccall p -> fprintf ppf "%s" p.prim_name | Praise -> fprintf ppf "raise" | Psequand -> fprintf ppf "&&" -- cgit v1.2.3-70-g09d2