diff options
| author | Richard Carlsson <[email protected]> | 2014-04-21 10:10:28 +0200 |
|---|---|---|
| committer | Richard Carlsson <[email protected]> | 2014-12-22 11:52:12 +0100 |
| commit | b61b839fff720fed3afa7c23d7787c60ff95de15 (patch) | |
| tree | 66f9171d4374d49d4be01f1b3f83711e0067adbf /lib/syntax_tools/src/igor.erl | |
| parent | 7bafc1b2ddd34b5905b9ef7d88dee5d8fc9c6aab (diff) | |
| download | otp-b61b839fff720fed3afa7c23d7787c60ff95de15.tar.gz otp-b61b839fff720fed3afa7c23d7787c60ff95de15.tar.bz2 otp-b61b839fff720fed3afa7c23d7787c60ff95de15.zip | |
Remove support for Mnemosyne rules
Diffstat (limited to 'lib/syntax_tools/src/igor.erl')
| -rw-r--r-- | lib/syntax_tools/src/igor.erl | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/lib/syntax_tools/src/igor.erl b/lib/syntax_tools/src/igor.erl index 0420508f2a..eac5af5540 100644 --- a/lib/syntax_tools/src/igor.erl +++ b/lib/syntax_tools/src/igor.erl @@ -1713,8 +1713,6 @@ transform(Tree, Env, St) -> transform_function(Tree, Env, St); implicit_fun -> transform_implicit_fun(Tree, Env, St); - rule -> - transform_rule(Tree, Env, St); record_expr -> transform_record(Tree, Env, St); record_index_expr -> @@ -1778,27 +1776,6 @@ renaming_note(Name) -> rename_atom(Node, Atom) -> rewrite(Node, erl_syntax:atom(Atom)). -%% Renaming Mnemosyne rules (just like function definitions) - -transform_rule(T, Env, St) -> - {T1, St1} = default_transform(T, Env, St), - F = erl_syntax_lib:analyze_rule(T1), - {V, Text} = case (Env#code.map)(F) of - F -> - %% Not renamed - {none, []}; - {Atom, _Arity} -> - %% Renamed - Cs = erl_syntax:rule_clauses(T1), - N = rename_atom( - erl_syntax:rule_name(T1), - Atom), - T2 = rewrite(T1, - erl_syntax:rule(N, Cs)), - {{value, T2}, renaming_note(Atom)} - end, - {maybe_modified(V, T1, 2, Text, Env), St1}. - %% Renaming "implicit fun" expressions (done quietly). transform_implicit_fun(T, Env, St) -> |