_

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>

src/dune_rules/resolve.ml

@@ -53,18 +53,10 @@ let push_frames { stack_frames; exn = _ } =
   in
   loop stack_frames
 
-let error_to_memo { stack_frames; exn } =
+let error_to_memo error =
   let open Memo.O in
-  let rec loop = function
-    | [] ->
-      let+ () = Memo.return () in
-      raise exn
-    | x :: rest ->
-      Memo.push_stack_frame
-        ~human_readable_description:(fun () -> Lazy.force x)
-        (fun () -> loop rest)
-  in
-  loop stack_frames
+  let* () = push_frames error in
+  raise error.exn
 
 let read_memo = function
   | Ok x -> Memo.return x