From 4b3a6cd204eeea74a85c5d295566530d524ce8b3 Mon Sep 17 00:00:00 2001
From: David Vulakh <dvulakh@janestreet.com>
Date: Tue, 29 Oct 2024 14:43:08 -0400
Subject: [PATCH] sundry cleanup

clean up some artifacts of intermediate states to make the total PR
diff cleaner

Signed-off-by: David Vulakh <dvulakh@janestreet.com>
---
 tests/test-dirs/stack-or-heap.t/closures.ml     | 1 -
 tests/test-dirs/stack-or-heap.t/constructors.ml | 6 ------
 tests/test-dirs/stack-or-heap.t/run.t           | 2 --
 3 files changed, 9 deletions(-)

diff --git a/tests/test-dirs/stack-or-heap.t/closures.ml b/tests/test-dirs/stack-or-heap.t/closures.ml
index 24ae963fa..8d5537ad8 100644
--- a/tests/test-dirs/stack-or-heap.t/closures.ml
+++ b/tests/test-dirs/stack-or-heap.t/closures.ml
@@ -56,4 +56,3 @@ let f = function
   | None -> 0
   | Some _ -> 1
          (* ^ *)
-
diff --git a/tests/test-dirs/stack-or-heap.t/constructors.ml b/tests/test-dirs/stack-or-heap.t/constructors.ml
index 09543b870..cd23f18cb 100644
--- a/tests/test-dirs/stack-or-heap.t/constructors.ml
+++ b/tests/test-dirs/stack-or-heap.t/constructors.ml
@@ -18,8 +18,6 @@ let f g x y =
   y
 ;;
 
-(* Constructors with no arguments *)
-
 let f g x y =
   let z = x + y in
   None
@@ -32,8 +30,6 @@ let f g x y =
           (* ^ *)
 ;;
 
-(* Tail-call *)
-
 let f (local_ _) = ()
 
 let g x =
@@ -47,8 +43,6 @@ let g x =
 let g x = f (Some x) [@nontail]
                (* ^ *)
 
-(* [[@@unboxed]] variant *)
-
 type t = Box of string [@@unboxed]
 
 let f g x y =
diff --git a/tests/test-dirs/stack-or-heap.t/run.t b/tests/test-dirs/stack-or-heap.t/run.t
index 403ddddcb..ddc760c82 100644
--- a/tests/test-dirs/stack-or-heap.t/run.t
+++ b/tests/test-dirs/stack-or-heap.t/run.t
@@ -161,8 +161,6 @@ escape characters in string literals, so we use the revert-newlines script.
   
   "not an allocation (unboxed constructor)"
   
-
-
 (II) Variants
 
   $ run_annotated_file variants.ml