File lfe-1.1.1-fix-spec.patch of Package lfe

Overview Repositories Revisions Requests Users Attributes Meta

File lfe-1.1.1-fix-spec.patch of Package lfe

diff -Ndurp lfe-1.1.1/src/lfe_doc.erl lfe-1.1.1-fix-spec/src/lfe_doc.erl
--- lfe-1.1.1/src/lfe_doc.erl	2016-06-19 03:58:47.000000000 +0300
+++ lfe-1.1.1-fix-spec/src/lfe_doc.erl	2016-06-21 02:01:36.655267307 +0300
@@ -51,6 +51,9 @@
 %% Errors
 format_error(_) -> "doc error".
 
+extract_module_docs(Defs) ->                    %Just give a default #cinfo{}
+    extract_module_docs(Defs, #cinfo{}).
+
 %% extract_module_docs(Defs, CompInfo) -> {ok,Docs} | {error,Errors,[]}.
 %%  Parse a module's docstrings and return the docs.
 
@@ -63,9 +66,6 @@ format_error(_) -> "doc error".
       Errors :: nonempty_list({error,Line,Error}),
       Error  :: any().
 
-extract_module_docs(Defs) ->                    %Just give a default #cinfo{}
-    extract_module_docs(Defs, #cinfo{}).
-
 extract_module_docs([], _Ci)  -> {ok,[]};
 extract_module_docs(Defs, Ci) ->
     {Mdoc,Docs} = do_forms(Defs),
@@ -133,15 +133,16 @@ do_macro(Name, Def, Meta, Line, Docs) ->
       Name  :: atom(),
       Arity :: non_neg_integer(),
       Meta  :: list().
--spec exclude(Name, Meta) -> boolean() when
-      Name  :: atom(),
-      Meta  :: list().
 
 exclude('LFE-EXPAND-EXPORTED-MACRO', 3, _)  -> true;
 exclude('$handle_undefined_function', 2, _) ->  %Should check for doc string
     true;
 exclude(_, _, _) -> false.
 
+-spec exclude(Name, Meta) -> boolean() when
+      Name  :: atom(),
+      Meta  :: list().
+
 exclude('MODULE', _) -> true;
 exclude(_, _)        -> false.
 
@@ -156,9 +157,6 @@ exclude(_, _)        -> false.
       LambdaForm :: nonempty_list(),
       Arity      :: non_neg_integer(),
       Patterns   :: nonempty_list({pattern(),guard()}).
--spec get_macro_patterns(LambdaForm) -> Patterns when
-      LambdaForm :: nonempty_list(),
-      Patterns   :: nonempty_list({pattern(),guard()}).
 
 get_function_patterns([lambda,Args|_]) -> {length(Args),[{Args,[]}]};
 get_function_patterns(['match-lambda',[Pat|_]=Cl|Cls]) ->
@@ -170,6 +168,10 @@ do_function_patterns([[Pat|_]|Cls], Acc)
     do_function_patterns(Cls, [{Pat,[]}|Acc]);
 do_function_patterns([], Acc) -> reverse(Acc).
 
+-spec get_macro_patterns(LambdaForm) -> Patterns when
+      LambdaForm :: nonempty_list(),
+      Patterns   :: nonempty_list({pattern(),guard()}).
+
 get_macro_patterns([lambda,[Args,_Env]|_]) -> [Args];
 get_macro_patterns(['match-lambda'|Cls])   -> do_macro_patterns(Cls, []).
 
@@ -190,16 +192,16 @@ do_macro_patterns([], Acc) -> reverse(Ac
       Meta     :: [any()],
       Line     :: pos_integer().
 
+make_function_doc(Name, Arity, Patterns, Meta, Line) ->
+    Docs = collect_docs(Meta, []),
+    #doc{type=function,name={Name,Arity},patterns=Patterns,doc=Docs,line=Line}.
+
 -spec make_macro_doc(Name, Patterns, Meta, Line) -> doc() when
       Name     :: atom(),
       Patterns :: [{[],[]}],
       Meta     :: [any()],
       Line     :: pos_integer().
 
-make_function_doc(Name, Arity, Patterns, Meta, Line) ->
-    Docs = collect_docs(Meta, []),
-    #doc{type=function,name={Name,Arity},patterns=Patterns,doc=Docs,line=Line}.
-
 make_macro_doc(Name, Patterns, Meta, Line) ->
     Docs = collect_docs(Meta, []),
     #doc{type=macro,name=Name,patterns=Patterns,doc=Docs,line=Line}.

Places

File lfe-1.1.1-fix-spec.patch of Package lfe

Places