Update reloc.ml

Co-authored-by: David Allsopp <david.allsopp@metastack.com>
ocaml · Jan 4, 2022 · 696ae2c · 696ae2c
1 parent 98af858
commit 696ae2c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/reloc.ml b/reloc.ml
@@ -1205,8 +1205,8 @@ let normalize_path path =
     | "."  :: path -> loop acc path
     | ".." :: path -> begin
         match acc with
-        | _ :: q -> loop q path
-        | [] -> loop [".."] path
+        | previous :: acc when previous <> ".." -> loop acc path
+        | _ -> loop (".." :: acc) path
       end
     | elem :: path -> loop (elem :: acc) path
     | [] -> List.rev acc