remove experimental [%bs.deriving.sexp: t] support

Author: bobzhang

jscomp/ext/literals.ml

@@ -62,7 +62,7 @@ let fn_mk = "fn_mk"
 (*let js_fn_runmethod = "js_fn_runmethod"*)
 
 
-let bs_deriving_dot = "bs.deriving."
+
 
 
 (** nodejs *)

jscomp/syntax/ast_derive.ml

@@ -65,15 +65,7 @@ let gen_signature
        (Ast_payload.table_dispatch !derive_table action).signature_gen
          tdcls explict_nonrec) 
 
-(** used for cases like [%sexp] *)         
-let gen_expression ({Asttypes.txt ; loc}) typ =
-  let txt = Ext_string.tail_from txt (String.length Literals.bs_deriving_dot) in 
-  match (Ast_payload.table_dispatch !derive_table 
-           ({txt ; loc}, None)).expression_gen with 
-  | None ->
-    Bs_syntaxerr.err loc (Unregistered txt)
 
-  | Some f -> f typ
 
 open Ast_helper  
 let gen_structure_signature 

jscomp/syntax/ast_derive.mli

@@ -52,12 +52,6 @@ val gen_signature:
   Ast_signature.t
 
 
-val gen_expression : 
-  string Asttypes.loc -> 
-  Parsetree.core_type -> 
-  Parsetree.expression
-
-
 
 val gen_structure_signature :  
   Location.t -> 

jscomp/syntax/ast_exp_extension.ml

@@ -28,7 +28,7 @@ open Ast_helper
 
 
 let handle_extension record_as_js_object e (self : Bs_ast_mapper.mapper)
-    (({txt ; loc} as lid , payload) : Parsetree.extension) = 
+    (({txt ; loc}  , payload) : Parsetree.extension) = 
   begin match txt with
     | "bs.raw" | "raw" -> 
        Ast_exp_handle_external.handle_raw ~kind:Raw_exp loc payload      
@@ -141,10 +141,6 @@ let handle_extension record_as_js_object e (self : Bs_ast_mapper.mapper)
         | _ -> Location.raise_errorf ~loc "Expect an expression here"
       end
     | _ ->
-      match payload with
-      | PTyp typ when Ext_string.starts_with txt Literals.bs_deriving_dot ->
-        self.expr self (Ast_derive.gen_expression lid typ)
-      | _ ->  
         e (* For an unknown extension, we don't really need to process further*)
         (* Exp.extension ~loc ~attrs:e.pexp_attributes (
             self.extension self extension) *)