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
|
module 'non_variable_apply' ['module_info'/0,
'module_info'/1,
'non_variable_apply'/0]
attributes []
'non_variable_apply'/0 =
%% Line 4
fun () ->
case <> of
<> when 'true' ->
let <OkFun> =
fun (_@c0) ->
%% Line 5
case _@c0 of
<'ok'> when 'true' ->
'ok'
( <_@c1> when 'true' ->
( primop 'match_fail'
({'function_clause',_@c1})
-| [{'function_name',{'-non_variable_apply/0-fun-0-',1}}] )
-| ['compiler_generated'] )
end
in let <F> =
fun (_@c5,_@c4) ->
%% Line 6
case <_@c5,_@c4> of
<F,X> when 'true' ->
apply apply 'id'/1 (F) (X)
( <_@c7,_@c6> when 'true' ->
( primop 'match_fail'
({'function_clause',_@c7,_@c6})
-| [{'function_name',{'-non_variable_apply/0-fun-1-',2}}] )
-| ['compiler_generated'] )
end
in %% Line 9
apply F
(OkFun, 'ok')
( <> when 'true' ->
( primop 'match_fail'
({'function_clause'})
-| [{'function_name',{'non_variable_apply',0}}] )
-| ['compiler_generated'] )
end
'id'/1 =
%% Line 11
fun (_@c0) ->
case _@c0 of
<I> when 'true' ->
I
( <_@c1> when 'true' ->
( primop 'match_fail'
({'function_clause',_@c1})
-| [{'function_name',{'id',1}}] )
-| ['compiler_generated'] )
end
'module_info'/0 =
fun () ->
case <> of
<> when 'true' ->
call 'erlang':'get_module_info'
('non_variable_apply')
( <> when 'true' ->
( primop 'match_fail'
({'function_clause'})
-| [{'function_name',{'module_info',0}}] )
-| ['compiler_generated'] )
end
'module_info'/1 =
fun (_@c0) ->
case _@c0 of
<X> when 'true' ->
call 'erlang':'get_module_info'
('non_variable_apply', X)
( <_@c1> when 'true' ->
( primop 'match_fail'
({'function_clause',_@c1})
-| [{'function_name',{'module_info',1}}] )
-| ['compiler_generated'] )
end
end
|
