st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2026-01-02 20:18:19 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix argument order

Browse source
This commit is contained in:
danyaberezun 2019-06-03 13:42:37 +03:00
parent b100346911
commit 6a72e69d32
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/SM.ml
View file

@ -194,7 +194,7 @@ let compile (defs, p) =
let bindings = let bindings =
transform(Pattern.t) transform(Pattern.t)
(fun fself -> (fun fself ->
object inherit [int list, (string * int list) list, _] @Pattern.t object inherit [int list, _, (string * int list) list] @Pattern.t
method c_Wildcard path _ = [] method c_Wildcard path _ = []
method c_Named path _ s p = [s, path] @ fself path p method c_Named path _ s p = [s, path] @ fself path p
method c_Sexp path _ x ps = List.concat @@ List.mapi (fun i p -> fself (path @ [i]) p) ps method c_Sexp path _ x ps = List.concat @@ List.mapi (fun i p -> fself (path @ [i]) p) ps