From 666cb14adfcf3b37e775ba59030444f8b3c86cfc Mon Sep 17 00:00:00 2001
From: Michel Mauny <Michel.Mauny@ensta.fr>
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/lambda.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'bytecomp/lambda.ml')

diff --git a/bytecomp/lambda.ml b/bytecomp/lambda.ml
index 77ac32e4a..1422401d6 100644
--- a/bytecomp/lambda.ml
+++ b/bytecomp/lambda.ml
@@ -29,6 +29,8 @@ type primitive =
   | Pfloatfield of int
   | Psetfloatfield of int
   | Pduprecord of Types.record_representation * int
+  (* Force lazy values *)
+  | Plazyforce
   (* External call *)
   | Pccall of Primitive.description
   (* Exceptions *)
-- 
cgit v1.2.3-70-g09d2