From 82b2ba7d341a0db918d5b7b9ec29aa7bc2e5e268 Mon Sep 17 00:00:00 2001
From: Peter Lemenkov <lemenkov@gmail.com>
Date: Thu, 31 Mar 2016 08:49:49 +0300
Subject: [PATCH] Remove support for erlang packages.

Erlang "packages" were abandoned long time ago. Remaining support was
dropped in erlang/otp@8e32c07940d9cd1c325d052bded3729333920f81.

Signed-off-by: Peter Lemenkov <lemenkov@gmail.com>

diff --git a/src/lfe_trans.erl b/src/lfe_trans.erl
index d400770..5bb72ee 100644
--- a/src/lfe_trans.erl
+++ b/src/lfe_trans.erl
@@ -133,8 +133,6 @@ from_expr({record_field,_,E,R,{atom,_,F}}, Vt0, St0) -> %We KNOW!
     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 @@ from_expr({op,_,Op,L,R}, Vt0, St0) ->
     {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]].