lib/compiler/test/nested_call_in_case.core


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

module 'nested_call_in_case' ['a'/2]
    attributes []

'a'/2 =
    fun (_x,_y) ->
        case call 'erlang':'>'
                 (call 'erlang':'length'
                      (_x), _y) of
          <'true'> when 'true' ->
              'yes'
          <'false'> when 'true' ->
              'no'
          ( <_omega> when 'true' ->
                primop 'match_fail'
                    ('if_clause')
            -| ['compiler_generated'] )
        end
end