This commit is contained in:
John Whitington 2020-01-30 16:11:29 +00:00
parent d6fc80235f
commit cbce71cfd1
1 changed files with 3 additions and 2 deletions

View File

@ -69,11 +69,12 @@ let json_of_op = function
J.String "cm"]
| O.Op_d (fl, y) ->
J.Array [J.Array (List.map (fun x -> J.Number (sof x)) fl); J.Number (sof y); J.String "d"]
| O.Op_w w -> J.Array [J.Number (sof w); J.String "w"]
| _ -> J.Array [J.String "UNIMPLEMENTED"]
(* | O.Op_w w -> J.Array [J.String "w"]
| O.Op_J j -> J.Array [J.String "J"]
(* | O.Op_J j -> J.Array [J.String "J"]
| O.Op_M m -> J.Array [J.String "m"]
| O.Op_ri s -> J.Array [J.String "ri"]
| O.Op_i i -> J.Array [J.String "i"]