closes #10670
@@ -1 +1 @@
-Subproject commit 4b27f91d8a4ff279d9903091680fee2c93a0d574
+Subproject commit 6a28eb9eb72851d8dfac6ee78fadf843ff2f8537
@@ -542,7 +542,7 @@ module HighLevel = struct
loop_lib arg dir "hxcs" acc args
| arg :: l ->
match List.rev (ExtString.String.nsplit arg ".") with
- | "hxml" :: _ when (match acc with "-cmd" :: _ | "--cmd" :: _ -> false | _ -> true) ->
+ | "hxml" :: _ :: _ when (match acc with "-cmd" :: _ | "--cmd" :: _ -> false | _ -> true) ->
let acc, l = (try acc, Helper.parse_hxml arg @ l with Not_found -> (arg ^ " (file not found)") :: acc, l) in
loop acc l
| _ ->