opaque

mshinwell · mshinwell · commit df8dfb7a8be4 · 2016-01-14T16:48:41.000Z
diff --git a/stdlib/sys.mlp b/stdlib/sys.mlp
@@ -110,3 +110,7 @@ external runtime_warnings_enabled: unit -> bool =
 (* The version string is found in file ../VERSION *)
 
 let ocaml_version = "%%VERSION%%";;
+
+(* Optimization *)
+
+external opaque_identity : 'a -> 'a = "%opaque"
