Fixed bug in Language.ml

This commit is contained in:
Dmitry Boulytchev 2020-01-27 22:08:16 +03:00
parent 8f00033fa9
commit 39beebe875

View file

@ -1047,7 +1047,7 @@ let eval (_, expr) i =
(* Top-level parser *) (* Top-level parser *)
ostap ( ostap (
imports[cmd]: l:$ is:(%"import" !(Util.list)[ostap (UIDENT)]) -";")* { imports[cmd]: l:$ is:(%"import" !(Util.list [ostap (UIDENT)]) -";")* {
let is = "Std" :: List.flatten is in let is = "Std" :: List.flatten is in
let infix = let infix =
List.fold_left List.fold_left