Prepare for new release.

Author: sbriais

CLASSES.md

@@ -69,7 +69,7 @@ Method binding
 
   ````
     method f: t -> unit
-      [@@js.meth "f"]
+      [@@js.call "f"]
   ````
 
 
@@ -84,7 +84,7 @@ all the examples above).  The following rules are applied in order:
   by dropping the `set_` prefix).
 
 - If the method is a function, then the definition is assumed to be a
-  `[@@js.meth]` method call.
+  `[@@js.call]` method call.
 
 - Otherwise, the method is assumed to be a `[@@js.get]` property getter.
 

src/gen_js_api.ml

@@ -1500,17 +1500,27 @@ and mapper =
   in
   {super with module_expr; structure_item; expr}
 
+let is_js_attribute txt = txt = "js" || has_prefix ~prefix:"js." txt
+
 let check_loc_mapper =
   let mapper = Ast_mapper.default_mapper in
   let attribute _this (({txt; loc}, _) as attr) =
-    if txt = "js" || has_prefix ~prefix:"js." txt then begin
+    if is_js_attribute txt then begin
       if is_registered_loc loc then ()
       else error loc Spurious_attribute
     end;
     attr
   in
   { mapper with Ast_mapper.attribute }
 
+let clear_attr_mapper =
+  let mapper = Ast_mapper.default_mapper in
+  let attributes _this attrs =
+    let f ({txt = _; loc}, _) = not (is_registered_loc loc) in
+    List.filter f attrs
+  in
+  { mapper with Ast_mapper.attributes }
+
 (** Main *)
 
 let out = ref ""
@@ -1538,10 +1548,10 @@ let standalone () =
       ~tool_name:"gen_js_iface"
       src
   in
-  let res = str_of_sg ~global_attrs:[] sg in
+  let str = str_of_sg ~global_attrs:[] sg in
   ignore (check_loc_mapper.Ast_mapper.signature check_loc_mapper sg);
-  Format.fprintf (Format.formatter_of_out_channel oc) "%a@."
-    Pprintast.structure res;
+  let str = clear_attr_mapper.Ast_mapper.structure clear_attr_mapper str in
+  Format.fprintf (Format.formatter_of_out_channel oc) "%a@." Pprintast.structure str;
   if !out <> "-" then close_out oc
 
 let () =