This commit is contained in:
Dmitry Boulytchev 2018-11-04 12:54:26 +03:00
parent 584e7a998b
commit be89ee983a

View file

@ -252,9 +252,9 @@ module Expr =
(Array.map (fun (a, s) -> a,
List.map (fun s -> ostap(- $(s)),
(fun x y ->
match s with
"++" -> Call ("strcat", [x; y])
| _ -> Binop (s, x, y)
match s with
| "++" -> Call ("strcat", [x; y])
| _ -> Binop (s, x, y)
)
) s
)