List.zip now uses Or_unequal_lengths

BinaryAnalysisPlatform · Sep 13, 2019 · e34fe4b · e34fe4b
1 parent ac39cdb
commit e34fe4b
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/bap_primus/bap_primus_lisp_resolve.ml b/lib/bap_primus/bap_primus_lisp_resolve.ml
@@ -111,9 +111,11 @@ let all_bindings f =
   List.for_all ~f:(fun (v,x) ->
       f v.data.typ x)
 
-let zip x y = match List.zip x y with
+let zip x y =
+  let open List.Or_unequal_lengths in
+  match List.zip x y with
   | Ok z -> Some z
-  | _ -> None
+  | Unequal_lengths -> None
 
 let overload_defun typechecks args s3 =
   let open Option in