Clean up lazy from ASTs and back-end.

Now that lazy is handled user-side, there's a bunch of unused code.

The type `lazy_t` is still predefined, and module `Primitive_lazy.res` still exists. Perhaps `lazy_t` can be moved user side too, and `Primitive_lazy` just moved into `Stdlib_lazy`, which seems just a wrapper for it at the moment.

Author: cristianoc

CHANGELOG.md

@@ -43,6 +43,7 @@
 #### :house: Internal
 
 - AST: Add bar location to `case`. https://github.com/rescript-lang/rescript/pull/7407
+- Clean up lazy from ASTs and back-end. https://github.com/rescript-lang/rescript/pull/7474
 
 #### :nail_care: Polish
 

analysis/reanalyze/src/Arnold.ml

@@ -988,9 +988,6 @@ module Compile = struct
     | Texp_letexception _ ->
       notImplemented "Texp_letexception";
       assert false
-    | Texp_lazy _ ->
-      notImplemented "Texp_lazy";
-      assert false
     | Texp_pack _ ->
       notImplemented "Texp_pack";
       assert false

analysis/reanalyze/src/SideEffects.ml

@@ -45,7 +45,6 @@ let rec exprNoSideEffects (expr : Typedtree.expression) =
     partial = Total && e |> exprNoSideEffects
     && cases |> List.for_all caseNoSideEffects
   | Texp_letmodule _ -> false
-  | Texp_lazy e -> e |> exprNoSideEffects
   | Texp_try (e, cases) ->
     e |> exprNoSideEffects && cases |> List.for_all caseNoSideEffects
   | Texp_tuple el -> el |> List.for_all exprNoSideEffects

analysis/src/CompletionFrontEnd.ml

@@ -538,7 +538,6 @@ let completionWithParser1 ~currentFile ~debug ~offset ~path ~posCursor
         ?contextPath:(TypeUtils.contextPathFromCoreType coreType)
         p
     | Ppat_type _ -> ()
-    | Ppat_lazy p -> scopePattern ~patternPath ?contextPath p
     | Ppat_unpack {txt; loc} ->
       scope :=
         !scope |> Scope.addValue ~name:txt ~loc ?contextPath:contextPathToSave

analysis/src/CompletionPatterns.ml

@@ -46,7 +46,6 @@ and traversePattern (pat : Parsetree.pattern) ~patternPath ~locHasCursor
   in
   match pat.ppat_desc with
   | Ppat_constant _ | Ppat_interval _ -> None
-  | Ppat_lazy p
   | Ppat_constraint (p, _)
   | Ppat_alias (p, _)
   | Ppat_exception p

analysis/src/Hint.ml

@@ -59,8 +59,8 @@ let inlay ~path ~pos ~maxLength ~debug =
          pexp_desc =
            ( Pexp_constant _ | Pexp_tuple _ | Pexp_record _ | Pexp_variant _
            | Pexp_apply _ | Pexp_match _ | Pexp_construct _ | Pexp_ifthenelse _
-           | Pexp_array _ | Pexp_ident _ | Pexp_try _ | Pexp_lazy _
-           | Pexp_send _ | Pexp_field _ | Pexp_open _
+           | Pexp_array _ | Pexp_ident _ | Pexp_try _ | Pexp_send _
+           | Pexp_field _ | Pexp_open _
            | Pexp_fun {arity = Some _} );
        };
     } ->

analysis/src/ProcessCmt.ml

@@ -460,7 +460,6 @@ let rec forStructureItem ~env ~(exported : Exported.t) item =
       | Tpat_or (p, _, _) -> handlePattern [] p
       | Tpat_record (items, _) ->
         items |> List.iter (fun (_, _, p, _) -> handlePattern [] p)
-      | Tpat_lazy p -> handlePattern [] p
       | Tpat_variant (_, Some p, _) -> handlePattern [] p
       | Tpat_variant (_, None, _) | Tpat_any | Tpat_constant _ -> ()
     in

analysis/src/Utils.ml

@@ -106,7 +106,6 @@ let identifyPexp pexp =
   | Pexp_letmodule _ -> "Pexp_letmodule"
   | Pexp_letexception _ -> "Pexp_letexception"
   | Pexp_assert _ -> "Pexp_assert"
-  | Pexp_lazy _ -> "Pexp_lazy"
   | Pexp_newtype _ -> "Pexp_newtype"
   | Pexp_pack _ -> "Pexp_pack"
   | Pexp_extension _ -> "Pexp_extension"
@@ -129,7 +128,6 @@ let identifyPpat pat =
   | Ppat_or _ -> "Ppat_or"
   | Ppat_constraint _ -> "Ppat_constraint"
   | Ppat_type _ -> "Ppat_type"
-  | Ppat_lazy _ -> "Ppat_lazy"
   | Ppat_unpack _ -> "Ppat_unpack"
   | Ppat_exception _ -> "Ppat_exception"
   | Ppat_extension _ -> "Ppat_extension"

compiler/common/pattern_printer.ml

@@ -38,7 +38,6 @@ let untype typed =
       in
       mkpat (Ppat_record (fields, closed_flag))
     | Tpat_array lst -> mkpat (Ppat_array (List.map loop lst))
-    | Tpat_lazy p -> mkpat (Ppat_lazy (loop p))
   in
   loop typed
 

compiler/core/js_dump.ml

@@ -969,12 +969,8 @@ and expression_desc cxt ~(level : int) f x : cxt =
       | _ -> J.Object (None, objs)
     in
     expression_desc cxt ~level f exp
-  | Caml_block
-      ( _,
-        _,
-        _,
-        (Blk_module_export _ | Blk_some | Blk_some_not_nested | Blk_lazy_general)
-      ) ->
+  | Caml_block (_, _, _, (Blk_module_export _ | Blk_some | Blk_some_not_nested))
+    ->
     assert false
   | Caml_block (el, mutable_flag, _tag, Blk_tuple) ->
     expression_desc cxt ~level f (Array (el, mutable_flag))