1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
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)
|
