From 6a72e69d32c8af520d1728dd7db66921a09f91ce Mon Sep 17 00:00:00 2001
From: danyaberezun <danya.berezun@gmail.com>
Date: Mon, 3 Jun 2019 13:42:37 +0300
Subject: [PATCH] fix argument order

---
 src/SM.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/SM.ml b/src/SM.ml
index 5c44ef75a..d3649bb17 100644
--- a/src/SM.ml
+++ b/src/SM.ml
@@ -194,7 +194,7 @@ let compile (defs, p) =
     let bindings =
       transform(Pattern.t)
         (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_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