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, (Array.map (fun (a, s) -> a,
List.map (fun s -> ostap(- $(s)), List.map (fun s -> ostap(- $(s)),
(fun x y -> (fun x y ->
match s with match s with
"++" -> Call ("strcat", [x; y]) | "++" -> Call ("strcat", [x; y])
| _ -> Binop (s, x, y) | _ -> Binop (s, x, y)
) )
) s ) s
) )