Simon Krajewski před 13 roky
rodič
revize
5d4ba64059
1 změnil soubory, kde provedl 2 přidání a 0 odebrání
  1. 2 0
      main.ml

+ 2 - 0
main.ml

@@ -393,6 +393,8 @@ let rec process_params create pl =
 			let ctx = create (!each_params @ (List.rev acc)) in
 			let ctx = create (!each_params @ (List.rev acc)) in
 			init ctx;
 			init ctx;
 			ctx.flush()
 			ctx.flush()
+		| "--next" :: l when acc = [] -> (* skip empty --next *)
+			loop [] l
 		| "--next" :: l ->
 		| "--next" :: l ->
 			let ctx = create (!each_params @ (List.rev acc)) in
 			let ctx = create (!each_params @ (List.rev acc)) in
 			ctx.has_next <- true;
 			ctx.has_next <- true;