LogoopenSUSE Build Service > Projects
Sign Up | Log In

View File lfe-0.9.2-remove-packages.patch of Package lfe (Project home:Ledest:erlang:R15)

diff -Ndur lfe-0.9.2/src/lfe_trans.erl lfe-0.9.2-remove-packages/src/lfe_trans.erl
--- lfe-0.9.2/src/lfe_trans.erl	2015-04-06 18:30:36.000000000 +0300
+++ lfe-0.9.2-remove-packages/src/lfe_trans.erl	2015-05-26 12:03:41.340382889 +0300
@@ -133,8 +133,6 @@
     RF = list_to_atom(atom_to_list(R) ++ "-" ++ atom_to_list(F)),
     {Le,Vt1,St1} = from_expr(E, Vt0, St0),
     {[RF,Le],Vt1,St1};
-from_expr({record_field,_,_,_}=M, Vt, St) ->        %Pre R16 packages
-    from_package_module(M, Vt, St);
 %% Function calls.
 from_expr({call,_,{remote,_,M,F},As}, Vt0, St0) ->  %Remote function call
     {Lm,Vt1,St1} = from_expr(M, Vt0, St0),
@@ -180,16 +178,6 @@
     {Lr,Vt2,St2} = from_expr(R, Vt1, St1),
     {[Op,Ll,Lr],Vt2,St2}.
 
-%% from_package_module(Module, VarTable, State) -> {Module,VarTable,State}.
-%%  We must handle the special case where in pre-R16 you could have
-%%  packages with a dotted module path. It used a special record_field
-%%  tuple. This does not work in R16 and later!
-
-from_package_module({record_field,_,_,_}=M, Vt, St) ->
-    Segs = erl_parse:package_segments(M),
-    A = list_to_atom(packages:concat(Segs)),
-    {?Q(A),Vt,St}.
-
 from_maybe(_, []) -> [];
 from_maybe(Tag, Es) -> [[Tag|Es]].