Skip to content

M
mincss
Commit b3315224 authored by Taddeüs Kroes's avatar Taddeüs Kroes
Browse files
Options

Fixed bug in nary-operator flattening

parent 864add40
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
parser.mly
View file @ b3315224
...@@ -23,8 +23,8 @@ ...@@ -23,8 +23,8 @@
in in
let rec flatten_nary = function let rec flatten_nary = function
| [] -> [] | [] -> []
| Nary (op, Nary (op2, left) :: right) :: tl when op2 = op -> | Nary (op1, Nary (op2, left) :: right) :: tl when op1 = op2 ->
Nary (op, flatten_nary left @ flatten_nary right) :: flatten_nary tl flatten_nary (Nary (op1, flatten_nary left @ flatten_nary right) :: tl)
| hd :: tl -> hd :: flatten_nary tl | hd :: tl -> hd :: flatten_nary tl
in in
match terms |> transform_ops |> flatten_nary with match terms |> transform_ops |> flatten_nary with
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment