Date: Sun, 13 Nov 2016 10:11:11 +0100
Subject: [PATCH] Fix invalid variable names
---
test/lfe_andor_SUITE.core | 16 ++++++++--------
test/lfe_guard_SUITE.core | 14 +++++++-------
2 files changed, 15 insertions(+), 15 deletions(-)
diff --git a/test/lfe_andor_SUITE.core b/test/lfe_andor_SUITE.core
index 96ff765..df58b39 100644
--- a/test/lfe_andor_SUITE.core
+++ b/test/lfe_andor_SUITE.core
@@ -288,19 +288,19 @@ module 'lfe_andor_SUITE' ['$handle_undefined_function'/2,
'lc$^0'/1 =
fun (_2) ->
case <_2> of
- <[_x|_|-0-|]> when 'true' ->
+ <[_x|_lfe0]> when 'true' ->
letrec
'lc$^1'/1 =
fun (_3) ->
case <_3> of
- <[_y|_|-1-|]> when 'true' ->
+ <[_y|_lfe1]> when 'true' ->
let <_4> =
apply 'lc$^1'/1
- (_|-1-|)
+ (_lfe1)
in [{_x,_y}|_4]
<[]> when 'true' ->
apply 'lc$^0'/1
- (_|-0-|)
+ (_lfe0)
( <_5> when 'true' ->
( primop 'match_fail'
({'function_clause',_5})
@@ -455,19 +455,19 @@ module 'lfe_andor_SUITE' ['$handle_undefined_function'/2,
'lc$^2'/1 =
fun (_2) ->
case <_2> of
- <[_x|_|-2-|]> when 'true' ->
+ <[_x|_lfe2]> when 'true' ->
letrec
'lc$^3'/1 =
fun (_3) ->
case <_3> of
- <[_y|_|-3-|]> when 'true' ->
+ <[_y|_lfe3]> when 'true' ->
let <_4> =
apply 'lc$^3'/1
- (_|-3-|)
+ (_lfe3)
in [{_x,_y}|_4]
<[]> when 'true' ->
apply 'lc$^2'/1
- (_|-2-|)
+ (_lfe2)
( <_5> when 'true' ->
( primop 'match_fail'
({'function_clause',_5})
diff --git a/test/lfe_guard_SUITE.core b/test/lfe_guard_SUITE.core
index 38f1d99..920be82 100644
--- a/test/lfe_guard_SUITE.core
+++ b/test/lfe_guard_SUITE.core
@@ -2857,22 +2857,22 @@ module 'lfe_guard_SUITE' ['$handle_undefined_function'/2,
'false' ->
case <_t> of
<{_a,_b,_c,_d}> when 'true' ->
- let <_|-0-|> =
+ let <_lfe0> =
<_a>
- in let <_|-1-|> =
+ in let <_lfe1> =
<_b>
- in let <_|-2-|> =
+ in let <_lfe2> =
<_c>
- in let <_|-3-|> =
+ in let <_lfe3> =
<_d>
in let <_4> =
let <_3> =
call 'erlang':'+'
- (_|-0-|, _|-1-|)
+ (_lfe0, _lfe1)
in call 'erlang':'+'
- (_3, _|-2-|)
+ (_3, _lfe2)
in call 'erlang':'+'
- (_4, _|-3-|)
+ (_4, _lfe3)
( <_5> when 'true' ->
primop 'match_fail'
({'badmatch',{_5}})
--
2.7.4 (Apple Git-66)
