1module 'lfe_andor_SUITE' ['$handle_undefined_function'/2,
2			  'LFE-EXPAND-EXPORTED-MACRO'/3,
3			  'all'/0,
4			  'before_and_inside_if'/1,
5			  'combined'/1,
6			  'end_per_group'/2,
7			  'end_per_suite'/1,
8			  'groups'/0,
9			  'in_case'/1,
10			  'init_per_group'/2,
11			  'init_per_suite'/1,
12			  'inside'/1,
13			  'module_info'/0,
14			  'module_info'/1,
15			  'overlap'/1,
16			  'suite'/0,
17			  't_and_or'/1,
18			  't_andalso'/1,
19			  't_case'/1,
20			  't_orelse'/1]
21    attributes []
22'all'/0 =
23    %% Line 38
24    fun () ->
25	['t_case'|['t_and_or'|['t_andalso'|['t_orelse'|['inside'|['overlap'|['combined'|['in_case'|['before_and_inside_if']]]]]]]]]
26'suite'/0 =
27    %% Line 44
28    fun () ->
29	[]
30'groups'/0 =
31    %% Line 46
32    fun () ->
33	[]
34'init_per_suite'/1 =
35    %% Line 48
36    fun (_config) ->
37	_config
38'end_per_suite'/1 =
39    %% Line 50
40    fun (_config) ->
41	'ok'
42'init_per_group'/2 =
43    %% Line 52
44    fun (_name,_config) ->
45	_config
46'end_per_group'/2 =
47    %% Line 54
48    fun (_name,_config) ->
49	_config
50't_case'/1 =
51    %% Line 56
52    fun (_0) ->
53	case <_0> of
54	  <'suite'> when 'true' ->
55	      []
56	  <'doc'> when 'true' ->
57	      [84|[101|[115|[116|[32|[105|[110|[32|[99|[97|[115|[101|[46]]]]]]]]]]]]]
58	  <_config>
59	      when try
60		    let <_1> =
61			call 'erlang':'is_list'
62			    (_config)
63		    in  _1
64		of <Try> ->
65		    Try
66		catch <T,R> ->
67		    'false' ->
68	      do  call 'erlang':'put'
69		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['less']]|[['t-case-a'|[1|[2]]]]]]})
70		  let <_val> =
71		      <apply 't-case-a'/2
72			   (1, 2)>
73		  in  case <_val> of
74			<'less'> when 'true' ->
75			    _val
76			( <_2> when 'true' ->
77			      primop 'match_fail'
78				  ({'badmatch',{_2}})
79			  -| ['compiler_generated'] )
80		      end
81	  ( <_25> when 'true' ->
82		( primop 'match_fail'
83		      ({'function_clause',_25})
84		  -| [{'function_name',{'t_case',1}}] )
85	    -| ['compiler_generated'] )
86	end
87't-case-a'/2 =
88    %% Line 94
89    fun (_a,_b) ->
90	case call 'erlang':'<'
91		 (_a, _b) of
92	  <[_0|_1]> when 'true' ->
93	      'ok'
94	  <'true'> when 'true' ->
95	      'less'
96	  <'false'> when 'true' ->
97	      'not_less'
98	  <{'a','b','c'}> when 'true' ->
99	      'ok'
100	  <_2> when 'true' ->
101	      'ok'
102	  ( <_omega> when 'true' ->
103		primop 'match_fail'
104		    ({'case_clause',_omega})
105	    -| ['compiler_generated'] )
106	end
107't-case-b'/2 =
108    %% Line 102
109    fun (_a,_b) ->
110	case call 'erlang':'=:='
111		 (_a, _b) of
112	  <'blurf'> when 'true' ->
113	      'ok'
114	  ( <_omega> when 'true' ->
115		primop 'match_fail'
116		    ({'case_clause',_omega})
117	    -| ['compiler_generated'] )
118	end
119't-case-c'/2 =
120    %% Line 106
121    fun (_a,_b) ->
122	case let <_0> =
123		 call 'erlang':'=:='
124		     (_a, _b)
125	     in  call 'erlang':'not'
126		     (_0) of
127	  <'true'> when 'true' ->
128	      'ne'
129	  <'false'> when 'true' ->
130	      'eq'
131	  ( <_omega> when 'true' ->
132		primop 'match_fail'
133		    ({'case_clause',_omega})
134	    -| ['compiler_generated'] )
135	end
136't-case-d'/3 =
137    %% Line 111
138    fun (_a,_b,_x) ->
139	case let <_0> =
140		 call 'erlang':'=:='
141		     (_a, _b)
142	     in  call 'erlang':'and'
143		     (_0, _x) of
144	  <'true'> when 'true' ->
145	      't'
146	  <'false'> when 'true' ->
147	      'f'
148	  ( <_omega> when 'true' ->
149		primop 'match_fail'
150		    ({'case_clause',_omega})
151	    -| ['compiler_generated'] )
152	end
153't-case-e'/2 =
154    %% Line 116
155    fun (_a,_b) ->
156	case call 'erlang':'=:='
157		 (_a, _b) of
158	  <_bool>
159	      when try
160		    let <_0> =
161			call 'erlang':'is_tuple'
162			    (_a)
163		    in  _0
164		of <Try> ->
165		    Try
166		catch <T,R> ->
167		    'false' ->
168	      apply 'id'/1
169		  (_bool)
170	  ( <_omega> when 'true' ->
171		primop 'match_fail'
172		    ({'case_clause',_omega})
173	    -| ['compiler_generated'] )
174	end
175't-case-xy'/3 =
176    %% Line 120
177    fun (_x,_y,_z) ->
178	let <_r0> =
179	    <apply 't-case-x'/3
180		 (_x, _y, _z)>
181	in  case <apply 't-case-y'/3
182		      (_x, _y, _z)> of
183	      <_res>
184		  when try
185			let <_0> =
186			    call 'erlang':'=:='
187				(_res, _r0)
188			in  _0
189		    of <Try> ->
190			Try
191		    catch <T,R> ->
192			'false' ->
193		  _res
194	      ( <_1> when 'true' ->
195		    primop 'match_fail'
196			({'badmatch',{_1}})
197		-| ['compiler_generated'] )
198	    end
199't-case-x'/3 =
200    %% Line 125
201    fun (_x,_y,_z) ->
202	case let <_0> =
203		 call 'erlang':'abs'
204		     (_x)
205	     in  call 'erlang':'=:='
206		     (_0, 42) of
207	  <'true'> when 'true' ->
208	      call 'erlang':'=:='
209		  (_y, 100)
210	  <'false'> when 'true' ->
211	      call 'erlang':'=:='
212		  (_z, 700)
213	  ( <_omega> when 'true' ->
214		primop 'match_fail'
215		    ({'case_clause',_omega})
216	    -| ['compiler_generated'] )
217	end
218't-case-y'/3 =
219    %% Line 130
220    fun (_x,_y,_z) ->
221	case let <_0> =
222		 call 'erlang':'abs'
223		     (_x)
224	     in  call 'erlang':'=:='
225		     (_0, 42) of
226	  <'false'> when 'true' ->
227	      call 'erlang':'=:='
228		  (_z, 700)
229	  <'true'> when 'true' ->
230	      call 'erlang':'=:='
231		  (_y, 100)
232	  ( <_omega> when 'true' ->
233		primop 'match_fail'
234		    ({'case_clause',_omega})
235	    -| ['compiler_generated'] )
236	end
237't_and_or'/1 =
238    %% Line 135
239    fun (_0) ->
240	case <_0> of
241	  <_config>
242	      when try
243		    let <_1> =
244			call 'erlang':'is_list'
245			    (_config)
246		    in  _1
247		of <Try> ->
248		    Try
249		catch <T,R> ->
250		    'false' ->
251	      do  call 'erlang':'put'
252		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['and'|[['quote'|['true']]|[['quote'|['true']]]]]]]]})
253		  let <_val> =
254		      <call 'erlang':'and'
255			   ('true', 'true')>
256		  in  case <_val> of
257			<'true'> when 'true' ->
258			    _val
259			( <_2> when 'true' ->
260			      primop 'match_fail'
261				  ({'badmatch',{_2}})
262			  -| ['compiler_generated'] )
263		      end
264	  ( <_42> when 'true' ->
265		( primop 'match_fail'
266		      ({'function_clause',_42})
267		  -| [{'function_name',{'t_and_or',1}}] )
268	    -| ['compiler_generated'] )
269	end
270't_andalso'/1 =
271    %% Line 172
272    fun (_0) ->
273	case <_0> of
274	  <_config>
275	      when try
276		    let <_1> =
277			call 'erlang':'is_list'
278			    (_config)
279		    in  _1
280		of <Try> ->
281		    Try
282		catch <T,R> ->
283		    'false' ->
284	      do  let <_bs> =
285		      <['true'|['false']]>
286		  in  let <_ps> =
287			  <letrec
288			       'lc$^0'/1 =
289				   fun (_2) ->
290				       case <_2> of
291					 <[_x|_lfe0]> when 'true' ->
292					     letrec
293						 'lc$^1'/1 =
294						     fun (_3) ->
295							 case <_3> of
296							   <[_y|_lfe1]> when 'true' ->
297							       let <_4> =
298								   apply 'lc$^1'/1
299								       (_lfe1)
300							       in  [{_x,_y}|_4]
301							   <[]> when 'true' ->
302							       apply 'lc$^0'/1
303								   (_lfe0)
304							   ( <_5> when 'true' ->
305								 ( primop 'match_fail'
306								       ({'function_clause',_5})
307								   -| [{'function_name',{'t_andalso',1}}] )
308							     -| ['compiler_generated'] )
309							 end
310					     in  apply 'lc$^1'/1
311						     (_bs)
312					 <[]> when 'true' ->
313					     []
314					 ( <_6> when 'true' ->
315					       ( primop 'match_fail'
316						     ({'function_clause',_6})
317						 -| [{'function_name',{'t_andalso',1}}] )
318					   -| ['compiler_generated'] )
319				       end
320			   in  apply 'lc$^0'/1
321				   (_bs)>
322		      in  let <_7> =
323			      fun (_p) ->
324				  apply 't-andalso-1'/1
325				      (_p)
326			  in  call 'lists':'foreach'
327				  (_7, _ps)
328		  do  call 'erlang':'put'
329			  ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['andalso'|[['quote'|['true']]|[['quote'|['true']]]]]]]]})
330		      let <_val> =
331			  <case 'true' of
332			     <'true'> when 'true' ->
333				 'true'
334			     <'false'> when 'true' ->
335				 'false'
336			     ( <_omega> when 'true' ->
337				   primop 'match_fail'
338				       ('if_clause')
339			       -| ['compiler_generated'] )
340			   end>
341		      in  case <_val> of
342			    <'true'> when 'true' ->
343				_val
344			    ( <_8> when 'true' ->
345				  primop 'match_fail'
346				      ({'badmatch',{_8}})
347			      -| ['compiler_generated'] )
348			  end
349	  ( <_57> when 'true' ->
350		( primop 'match_fail'
351		      ({'function_clause',_57})
352		  -| [{'function_name',{'t_andalso',1}}] )
353	    -| ['compiler_generated'] )
354	end
355't-andalso-1'/1 =
356    %% Line 207
357    fun (_0) ->
358	case <_0> of
359	  <{_x,_y}> when 'true' ->
360	      do  call 'io':'format'
361		      ([40|[97|[110|[100|[97|[108|[115|[111|[32|[126|[119|[32|[126|[119|[41|[58|[32]]]]]]]]]]]]]]]]], [_x,_y])
362		  let <_v0> =
363		      <case apply 'echo'/1
364				(_x) of
365			 <'true'> when 'true' ->
366			     apply 'echo'/1
367				 (_y)
368			 <'false'> when 'true' ->
369			     'false'
370			 ( <_omega> when 'true' ->
371			       primop 'match_fail'
372				   ('if_clause')
373			   -| ['compiler_generated'] )
374		       end>
375		  in  case <case 1 of
376			      <_1>
377				  when try
378					let <_3> =
379					    let <_2> =
380						case _x of
381						  <'true'> when 'true' ->
382						      _y
383						  <'false'> when 'true' ->
384						      'false'
385						  ( <_omega> when 'true' ->
386							_omega
387						    -| ['compiler_generated'] )
388						end
389					    in  ( call 'erlang':'=:='
390						      (_2, 'true')
391						  -| ['compiler_generated'] )
392					in  _3
393				    of <Try> ->
394					Try
395				    catch <T,R> ->
396					'false' ->
397				  'true'
398			      <_4>
399				  when try
400					'true'
401				    of <Try> ->
402					Try
403				    catch <T,R> ->
404					'false' ->
405				  'false'
406			      ( <_omega> when 'true' ->
407				    primop 'match_fail'
408					({'case_clause',_omega})
409				-| ['compiler_generated'] )
410			    end> of
411			<_v1>
412			    when try
413				  let <_5> =
414				      call 'erlang':'=:='
415					  (_v0, _v1)
416				  in  _5
417			      of <Try> ->
418				  Try
419			      catch <T,R> ->
420				  'false' ->
421			    let <_6> =
422				call 'erlang':'and'
423				    (_x, _y)
424			    in  apply 'check'/2
425				    (_v1, _6)
426			( <_7> when 'true' ->
427			      primop 'match_fail'
428				  ({'badmatch',{_7}})
429			  -| ['compiler_generated'] )
430		      end
431	  ( <_8> when 'true' ->
432		( primop 'match_fail'
433		      ({'function_clause',_8})
434		  -| [{'function_name',{'t-andalso-1',1}}] )
435	    -| ['compiler_generated'] )
436	end
437't_orelse'/1 =
438    %% Line 215
439    fun (_0) ->
440	case <_0> of
441	  <_config>
442	      when try
443		    let <_1> =
444			call 'erlang':'is_list'
445			    (_config)
446		    in  _1
447		of <Try> ->
448		    Try
449		catch <T,R> ->
450		    'false' ->
451	      do  let <_bs> =
452		      <['true'|['false']]>
453		  in  let <_ps> =
454			  <letrec
455			       'lc$^2'/1 =
456				   fun (_2) ->
457				       case <_2> of
458					 <[_x|_lfe2]> when 'true' ->
459					     letrec
460						 'lc$^3'/1 =
461						     fun (_3) ->
462							 case <_3> of
463							   <[_y|_lfe3]> when 'true' ->
464							       let <_4> =
465								   apply 'lc$^3'/1
466								       (_lfe3)
467							       in  [{_x,_y}|_4]
468							   <[]> when 'true' ->
469							       apply 'lc$^2'/1
470								   (_lfe2)
471							   ( <_5> when 'true' ->
472								 ( primop 'match_fail'
473								       ({'function_clause',_5})
474								   -| [{'function_name',{'t_orelse',1}}] )
475							     -| ['compiler_generated'] )
476							 end
477					     in  apply 'lc$^3'/1
478						     (_bs)
479					 <[]> when 'true' ->
480					     []
481					 ( <_6> when 'true' ->
482					       ( primop 'match_fail'
483						     ({'function_clause',_6})
484						 -| [{'function_name',{'t_orelse',1}}] )
485					   -| ['compiler_generated'] )
486				       end
487			   in  apply 'lc$^2'/1
488				   (_bs)>
489		      in  let <_7> =
490			      fun (_p) ->
491				  apply 't-orelse-1'/1
492				      (_p)
493			  in  call 'lists':'foreach'
494				  (_7, _ps)
495		  do  call 'erlang':'put'
496			  ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['orelse'|[['quote'|['true']]|[['quote'|['true']]]]]]]]})
497		      let <_val> =
498			  <case 'true' of
499			     <'true'> when 'true' ->
500				 'true'
501			     <'false'> when 'true' ->
502				 'true'
503			     ( <_omega> when 'true' ->
504				   primop 'match_fail'
505				       ('if_clause')
506			       -| ['compiler_generated'] )
507			   end>
508		      in  case <_val> of
509			    <'true'> when 'true' ->
510				_val
511			    ( <_8> when 'true' ->
512				  primop 'match_fail'
513				      ({'badmatch',{_8}})
514			      -| ['compiler_generated'] )
515			  end
516	  ( <_57> when 'true' ->
517		( primop 'match_fail'
518		      ({'function_clause',_57})
519		  -| [{'function_name',{'t_orelse',1}}] )
520	    -| ['compiler_generated'] )
521	end
522't-orelse-1'/1 =
523    %% Line 249
524    fun (_0) ->
525	case <_0> of
526	  <{_x,_y}> when 'true' ->
527	      do  call 'io':'format'
528		      ([40|[111|[114|[101|[108|[115|[101|[32|[126|[119|[32|[126|[119|[41|[58|[32]]]]]]]]]]]]]]]], [_x,_y])
529		  let <_v0> =
530		      <case apply 'echo'/1
531				(_x) of
532			 <'true'> when 'true' ->
533			     'true'
534			 <'false'> when 'true' ->
535			     apply 'echo'/1
536				 (_y)
537			 ( <_omega> when 'true' ->
538			       primop 'match_fail'
539				   ('if_clause')
540			   -| ['compiler_generated'] )
541		       end>
542		  in  case <case 1 of
543			      <_1>
544				  when try
545					let <_3> =
546					    let <_2> =
547						case _x of
548						  <'true'> when 'true' ->
549						      'true'
550						  <'false'> when 'true' ->
551						      _y
552						  ( <_omega> when 'true' ->
553							_omega
554						    -| ['compiler_generated'] )
555						end
556					    in  ( call 'erlang':'=:='
557						      (_2, 'true')
558						  -| ['compiler_generated'] )
559					in  _3
560				    of <Try> ->
561					Try
562				    catch <T,R> ->
563					'false' ->
564				  'true'
565			      <_4>
566				  when try
567					'true'
568				    of <Try> ->
569					Try
570				    catch <T,R> ->
571					'false' ->
572				  'false'
573			      ( <_omega> when 'true' ->
574				    primop 'match_fail'
575					({'case_clause',_omega})
576				-| ['compiler_generated'] )
577			    end> of
578			<_v1>
579			    when try
580				  let <_5> =
581				      call 'erlang':'=:='
582					  (_v0, _v1)
583				  in  _5
584			      of <Try> ->
585				  Try
586			      catch <T,R> ->
587				  'false' ->
588			    let <_6> =
589				call 'erlang':'or'
590				    (_x, _y)
591			    in  apply 'check'/2
592				    (_v1, _6)
593			( <_7> when 'true' ->
594			      primop 'match_fail'
595				  ({'badmatch',{_7}})
596			  -| ['compiler_generated'] )
597		      end
598	  ( <_8> when 'true' ->
599		( primop 'match_fail'
600		      ({'function_clause',_8})
601		  -| [{'function_name',{'t-orelse-1',1}}] )
602	    -| ['compiler_generated'] )
603	end
604'inside'/1 =
605    %% Line 257
606    fun (_0) ->
607	case <_0> of
608	  <_config>
609	      when try
610		    let <_1> =
611			call 'erlang':'is_list'
612			    (_config)
613		    in  _1
614		of <Try> ->
615		    Try
616		catch <T,R> ->
617		    'false' ->
618	      do  call 'erlang':'put'
619		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['inside'|[-8|[1]]]]]]})
620		  let <_val> =
621		      <apply 'inside'/2
622			   (-8, 1)>
623		  in  case <_val> of
624			<'true'> when 'true' ->
625			    _val
626			( <_2> when 'true' ->
627			      primop 'match_fail'
628				  ({'badmatch',{_2}})
629			  -| ['compiler_generated'] )
630		      end
631	  ( <_12> when 'true' ->
632		( primop 'match_fail'
633		      ({'function_clause',_12})
634		  -| [{'function_name',{'inside',1}}] )
635	    -| ['compiler_generated'] )
636	end
637'inside'/2 =
638    %% Line 272
639    fun (_xm,_ym) ->
640	let <_x> =
641	    <-1.00000000000000000000e+01>
642	in  let <_y> =
643		<-2.00000000000000000000e+00>
644	    in  let <_w> =
645		    <2.00000000000000000000e+01>
646		in  let <_h> =
647			<4.00000000000000000000e+00>
648		    in  let <_r0> =
649			    <apply 'inside'/6
650				 (_xm, _ym, _x, _y, _w, _h)>
651			in  case <case 1 of
652				    <_0>
653					when try
654					      let <_4> =
655						  let <_3> =
656						      case call 'erlang':'=<'
657							       (_x, _xm) of
658							<'true'> when 'true' ->
659							    case let <_1> =
660								     call 'erlang':'+'
661									 (_x, _w)
662								 in  call 'erlang':'<'
663									 (_xm, _1) of
664							      <'true'> when 'true' ->
665								  case call 'erlang':'=<'
666									   (_y, _ym) of
667								    <'true'> when 'true' ->
668									let <_2> =
669									    call 'erlang':'+'
670										(_y, _h)
671									in  call 'erlang':'<'
672										(_ym, _2)
673								    <'false'> when 'true' ->
674									'false'
675								    ( <_omega> when 'true' ->
676									  _omega
677								      -| ['compiler_generated'] )
678								  end
679							      <'false'> when 'true' ->
680								  'false'
681							      ( <_omega> when 'true' ->
682								    _omega
683								-| ['compiler_generated'] )
684							    end
685							<'false'> when 'true' ->
686							    'false'
687							( <_omega> when 'true' ->
688							      _omega
689							  -| ['compiler_generated'] )
690						      end
691						  in  ( call 'erlang':'=:='
692							    (_3, 'true')
693							-| ['compiler_generated'] )
694					      in  _4
695					  of <Try> ->
696					      Try
697					  catch <T,R> ->
698					      'false' ->
699					'true'
700				    <_5>
701					when try
702					      'true'
703					  of <Try> ->
704					      Try
705					  catch <T,R> ->
706					      'false' ->
707					'false'
708				    ( <_omega> when 'true' ->
709					  primop 'match_fail'
710					      ({'case_clause',_omega})
711				      -| ['compiler_generated'] )
712				  end> of
713			      <_r1>
714				  when try
715					let <_6> =
716					    call 'erlang':'=:='
717						(_r0, _r1)
718					in  _6
719				    of <Try> ->
720					Try
721				    catch <T,R> ->
722					'false' ->
723				  do  case let <_7> =
724					       apply 'id'/1
725						   (_r1)
726					   in  call 'erlang':'not'
727						   (_7) of
728					<_o0> when 'true' ->
729					    case <case 1 of
730						    <_8>
731							when try
732							      let <_12> =
733								  let <_11> =
734								      case call 'erlang':'=<'
735									       (_x, _xm) of
736									<'true'> when 'true' ->
737									    case let <_9> =
738										     call 'erlang':'+'
739											 (_x, _w)
740										 in  call 'erlang':'<'
741											 (_xm, _9) of
742									      <'true'> when 'true' ->
743										  case call 'erlang':'=<'
744											   (_y, _ym) of
745										    <'true'> when 'true' ->
746											let <_10> =
747											    call 'erlang':'+'
748												(_y, _h)
749											in  call 'erlang':'<'
750												(_ym, _10)
751										    <'false'> when 'true' ->
752											'false'
753										    ( <_omega> when 'true' ->
754											  _omega
755										      -| ['compiler_generated'] )
756										  end
757									      <'false'> when 'true' ->
758										  'false'
759									      ( <_omega> when 'true' ->
760										    _omega
761										-| ['compiler_generated'] )
762									    end
763									<'false'> when 'true' ->
764									    'false'
765									( <_omega> when 'true' ->
766									      _omega
767									  -| ['compiler_generated'] )
768								      end
769								  in  call 'erlang':'not'
770									  (_11)
771							      in  _12
772							  of <Try> ->
773							      Try
774							  catch <T,R> ->
775							      'false' ->
776							'true'
777						    <_13>
778							when try
779							      'true'
780							  of <Try> ->
781							      Try
782							  catch <T,R> ->
783							      'false' ->
784							'false'
785						    ( <_omega> when 'true' ->
786							  primop 'match_fail'
787							      ({'case_clause',_omega})
788						      -| ['compiler_generated'] )
789						  end> of
790					      <_o1>
791						  when try
792							let <_14> =
793							    call 'erlang':'=:='
794								(_o0, _o1)
795							in  _14
796						    of <Try> ->
797							Try
798						    catch <T,R> ->
799							'false' ->
800						  _o1
801					      ( <_15> when 'true' ->
802						    primop 'match_fail'
803							({'badmatch',{_15}})
804						-| ['compiler_generated'] )
805					    end
806					( <_omega> when 'true' ->
807					      primop 'match_fail'
808						  ({'case_clause',_omega})
809					  -| ['compiler_generated'] )
810				      end
811				      do  case <apply 'inside-guard'/6
812						    (_xm, _ym, _x, _y, _w, _h)> of
813					    <{_r2,_xm2,_ym2,_x2,_y2,_w2,_h2}>
814						when try
815						      let <_16> =
816							  call 'erlang':'=:='
817							      (_r1, _r2)
818						      in  let <_17> =
819							      call 'erlang':'=:='
820								  (_xm, _xm2)
821							  in  let <_18> =
822								  call 'erlang':'=:='
823								      (_ym, _ym2)
824							      in  let <_19> =
825								      call 'erlang':'=:='
826									  (_x, _x2)
827								  in  let <_20> =
828									  call 'erlang':'=:='
829									      (_y, _y2)
830								      in  let <_21> =
831									      call 'erlang':'=:='
832										  (_w, _w2)
833									  in  let <_22> =
834										  call 'erlang':'=:='
835										      (_h, _h2)
836									      in  let <_23> =
837										      call 'erlang':'and'
838											  (_16, _17)
839										  in  let <_24> =
840											  call 'erlang':'and'
841											      (_23, _18)
842										      in  let <_25> =
843											      call 'erlang':'and'
844												  (_24, _19)
845											  in  let <_26> =
846												  call 'erlang':'and'
847												      (_25, _20)
848											      in  let <_27> =
849												      call 'erlang':'and'
850													  (_26, _21)
851												  in  call 'erlang':'and'
852													  (_27, _22)
853						  of <Try> ->
854						      Try
855						  catch <T,R> ->
856						      'false' ->
857						let <_30> =
858						    let <_28> =
859							call 'erlang':'+'
860							    (_x, _w)
861						    in  let <_29> =
862							    call 'erlang':'+'
863								(_y, _h)
864							in  [_x,_xm,_xm,_28,_y,_ym,_ym,_29,_r1]
865						in  call 'io':'fwrite'
866							([40|[97|[110|[100|[97|[108|[115|[111|[32|[40|[61|[60|[32|[126|[112|[32|[126|[112|[41|[32|[40|[60|[32|[126|[112|[32|[126|[112|[41|[32|[40|[61|[60|[32|[126|[112|[32|[126|[112|[41|[32|[40|[60|[32|[126|[112|[32|[126|[112|[41|[41|[32|[61|[61|[62|[32|[126|[112|[10]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]], _30)
867					    ( <_31> when 'true' ->
868						  primop 'match_fail'
869						      ({'badmatch',{_31}})
870					      -| ['compiler_generated'] )
871					  end
872					  _r1
873			      ( <_32> when 'true' ->
874				    primop 'match_fail'
875					({'badmatch',{_32}})
876				-| ['compiler_generated'] )
877			    end
878'inside'/6 =
879    %% Line 297
880    fun (_xm,_ym,_x,_y,_w,_h) ->
881	case call 'erlang':'=<'
882		 (_x, _xm) of
883	  <'true'> when 'true' ->
884	      case let <_0> =
885		       call 'erlang':'+'
886			   (_x, _w)
887		   in  call 'erlang':'<'
888			   (_xm, _0) of
889		<'true'> when 'true' ->
890		    case call 'erlang':'=<'
891			     (_y, _ym) of
892		      <'true'> when 'true' ->
893			  let <_1> =
894			      call 'erlang':'+'
895				  (_y, _h)
896			  in  call 'erlang':'<'
897				  (_ym, _1)
898		      <'false'> when 'true' ->
899			  'false'
900		      ( <_omega> when 'true' ->
901			    primop 'match_fail'
902				('if_clause')
903			-| ['compiler_generated'] )
904		    end
905		<'false'> when 'true' ->
906		    'false'
907		( <_omega> when 'true' ->
908		      primop 'match_fail'
909			  ('if_clause')
910		  -| ['compiler_generated'] )
911	      end
912	  <'false'> when 'true' ->
913	      'false'
914	  ( <_omega> when 'true' ->
915		primop 'match_fail'
916		    ('if_clause')
917	    -| ['compiler_generated'] )
918	end
919'inside-guard'/6 =
920    %% Line 300
921    fun (_5,_4,_3,_2,_1,_0) ->
922	case <_5,_4,_3,_2,_1,_0> of
923	  <_xm,_ym,_x,_y,_w,_h>
924	      when try
925		    let <_9> =
926			let <_8> =
927			    case call 'erlang':'=<'
928				     (_x, _xm) of
929			      <'true'> when 'true' ->
930				  case let <_6> =
931					   call 'erlang':'+'
932					       (_x, _w)
933				       in  call 'erlang':'<'
934					       (_xm, _6) of
935				    <'true'> when 'true' ->
936					case call 'erlang':'=<'
937						 (_y, _ym) of
938					  <'true'> when 'true' ->
939					      let <_7> =
940						  call 'erlang':'+'
941						      (_y, _h)
942					      in  call 'erlang':'<'
943						      (_ym, _7)
944					  <'false'> when 'true' ->
945					      'false'
946					  ( <_omega> when 'true' ->
947						_omega
948					    -| ['compiler_generated'] )
949					end
950				    <'false'> when 'true' ->
951					'false'
952				    ( <_omega> when 'true' ->
953					  _omega
954				      -| ['compiler_generated'] )
955				  end
956			      <'false'> when 'true' ->
957				  'false'
958			      ( <_omega> when 'true' ->
959				    _omega
960				-| ['compiler_generated'] )
961			    end
962			in  ( call 'erlang':'=:='
963				  (_8, 'true')
964			      -| ['compiler_generated'] )
965		    in  _9
966		of <Try> ->
967		    Try
968		catch <T,R> ->
969		    'false' ->
970	      {'true',_xm,_ym,_x,_y,_w,_h}
971	  <_xm,_ym,_x,_y,_w,_h> when 'true' ->
972	      {'false',_xm,_ym,_x,_y,_w,_h}
973	  ( <_15,_14,_13,_12,_11,_10> when 'true' ->
974		( primop 'match_fail'
975		      ({'function_clause',_15,_14,_13,_12,_11,_10})
976		  -| [{'function_name',{'inside-guard',6}}] )
977	    -| ['compiler_generated'] )
978	end
979'overlap'/1 =
980    %% Line 307
981    fun (_0) ->
982	case <_0> of
983	  <_config>
984	      when try
985		    let <_1> =
986			call 'erlang':'is_list'
987			    (_config)
988		    in  _1
989		of <Try> ->
990		    Try
991		catch <T,R> ->
992		    'false' ->
993	      do  call 'erlang':'put'
994		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['overlap'|[7.00000000000000000000e+00|[2.00000000000000000000e+00|[8.00000000000000000000e+00|[5.00000000000000000000e-01]]]]]]]]})
995		  let <_val> =
996		      <apply 'overlap'/4
997			   (7.00000000000000000000e+00, 2.00000000000000000000e+00, 8.00000000000000000000e+00, 5.00000000000000000000e-01)>
998		  in  case <_val> of
999			<'true'> when 'true' ->
1000			    _val
1001			( <_2> when 'true' ->
1002			      primop 'match_fail'
1003				  ({'badmatch',{_2}})
1004			  -| ['compiler_generated'] )
1005		      end
1006	  ( <_10> when 'true' ->
1007		( primop 'match_fail'
1008		      ({'function_clause',_10})
1009		  -| [{'function_name',{'overlap',1}}] )
1010	    -| ['compiler_generated'] )
1011	end
1012'overlap'/4 =
1013    %% Line 321
1014    fun (_pos1,_len1,_pos2,_len2) ->
1015	let <_r0> =
1016	    <case _pos1 of
1017	       <_pos1>
1018		   when try
1019			 let <_3> =
1020			     let <_2> =
1021				 case case call 'erlang':'=<'
1022					       (_pos2, _pos1) of
1023					<'true'> when 'true' ->
1024					    let <_0> =
1025						call 'erlang':'+'
1026						    (_pos2, _len2)
1027					    in  call 'erlang':'<'
1028						    (_pos1, _0)
1029					<'false'> when 'true' ->
1030					    'false'
1031					( <_omega> when 'true' ->
1032					      _omega
1033					  -| ['compiler_generated'] )
1034				      end of
1035				   <'true'> when 'true' ->
1036				       'true'
1037				   <'false'> when 'true' ->
1038				       case call 'erlang':'=<'
1039						(_pos1, _pos2) of
1040					 <'true'> when 'true' ->
1041					     let <_1> =
1042						 call 'erlang':'+'
1043						     (_pos1, _len1)
1044					     in  call 'erlang':'<'
1045						     (_pos2, _1)
1046					 <'false'> when 'true' ->
1047					     'false'
1048					 ( <_omega> when 'true' ->
1049					       _omega
1050					   -| ['compiler_generated'] )
1051				       end
1052				   ( <_omega> when 'true' ->
1053					 _omega
1054				     -| ['compiler_generated'] )
1055				 end
1056			     in  ( call 'erlang':'=:='
1057				       (_2, 'true')
1058				   -| ['compiler_generated'] )
1059			 in  _3
1060		     of <Try> ->
1061			 Try
1062		     catch <T,R> ->
1063			 'false' ->
1064		   'true'
1065	       <_pos1> when 'true' ->
1066		   'false'
1067	       ( <_omega> when 'true' ->
1068		     primop 'match_fail'
1069			 ({'case_clause',_omega})
1070		 -| ['compiler_generated'] )
1071	     end>
1072	in  case <case case call 'erlang':'=<'
1073				(_pos2, _pos1) of
1074			 <'true'> when 'true' ->
1075			     let <_4> =
1076				 call 'erlang':'+'
1077				     (_pos2, _len2)
1078			     in  call 'erlang':'<'
1079				     (_pos1, _4)
1080			 <'false'> when 'true' ->
1081			     'false'
1082			 ( <_omega> when 'true' ->
1083			       primop 'match_fail'
1084				   ('if_clause')
1085			   -| ['compiler_generated'] )
1086		       end of
1087		    <'true'> when 'true' ->
1088			'true'
1089		    <'false'> when 'true' ->
1090			case call 'erlang':'=<'
1091				 (_pos1, _pos2) of
1092			  <'true'> when 'true' ->
1093			      let <_5> =
1094				  call 'erlang':'+'
1095				      (_pos1, _len1)
1096			      in  call 'erlang':'<'
1097				      (_pos2, _5)
1098			  <'false'> when 'true' ->
1099			      'false'
1100			  ( <_omega> when 'true' ->
1101				primop 'match_fail'
1102				    ('if_clause')
1103			    -| ['compiler_generated'] )
1104			end
1105		    ( <_omega> when 'true' ->
1106			  primop 'match_fail'
1107			      ('if_clause')
1108		      -| ['compiler_generated'] )
1109		  end> of
1110	      <_r1>
1111		  when try
1112			let <_6> =
1113			    call 'erlang':'=:='
1114				(_r0, _r1)
1115			in  _6
1116		    of <Try> ->
1117			Try
1118		    catch <T,R> ->
1119			'false' ->
1120		  case <case _pos1 of
1121			  <_pos1>
1122			      when try
1123				    let <_10> =
1124					let <_9> =
1125					    case case call 'erlang':'=<'
1126							  (_pos2, _pos1) of
1127						   <'true'> when 'true' ->
1128						       let <_7> =
1129							   call 'erlang':'+'
1130							       (_pos2, _len2)
1131						       in  call 'erlang':'<'
1132							       (_pos1, _7)
1133						   <'false'> when 'true' ->
1134						       'false'
1135						   ( <_omega> when 'true' ->
1136							 _omega
1137						     -| ['compiler_generated'] )
1138						 end of
1139					      <'true'> when 'true' ->
1140						  'true'
1141					      <'false'> when 'true' ->
1142						  case call 'erlang':'=<'
1143							   (_pos1, _pos2) of
1144						    <'true'> when 'true' ->
1145							let <_8> =
1146							    call 'erlang':'+'
1147								(_pos1, _len1)
1148							in  call 'erlang':'<'
1149								(_pos2, _8)
1150						    <'false'> when 'true' ->
1151							'false'
1152						    ( <_omega> when 'true' ->
1153							  _omega
1154						      -| ['compiler_generated'] )
1155						  end
1156					      ( <_omega> when 'true' ->
1157						    _omega
1158						-| ['compiler_generated'] )
1159					    end
1160					in  ( call 'erlang':'=:='
1161						  (_9, 'true')
1162					      -| ['compiler_generated'] )
1163				    in  _10
1164				of <Try> ->
1165				    Try
1166				catch <T,R> ->
1167				    'false' ->
1168			      'true'
1169			  <_pos1> when 'true' ->
1170			      'false'
1171			  ( <_omega> when 'true' ->
1172				primop 'match_fail'
1173				    ({'case_clause',_omega})
1174			    -| ['compiler_generated'] )
1175			end> of
1176		    <_r2>
1177			when try
1178			      let <_11> =
1179				  call 'erlang':'=:='
1180				      (_r2, _r1)
1181			      in  _11
1182			  of <Try> ->
1183			      Try
1184			  catch <T,R> ->
1185			      'false' ->
1186			apply 'id'/1
1187			    (_r2)
1188		    ( <_12> when 'true' ->
1189			  primop 'match_fail'
1190			      ({'badmatch',{_12}})
1191		      -| ['compiler_generated'] )
1192		  end
1193	      ( <_13> when 'true' ->
1194		    primop 'match_fail'
1195			({'badmatch',{_13}})
1196		-| ['compiler_generated'] )
1197	    end
1198'combined'/1 =
1199    %% Line 348
1200    fun (_0) ->
1201	case <_0> of
1202	  <_config>
1203	      when try
1204		    let <_1> =
1205			call 'erlang':'is_list'
1206			    (_config)
1207		    in  _1
1208		of <Try> ->
1209		    Try
1210		catch <T,R> ->
1211		    'false' ->
1212	      do  call 'erlang':'put'
1213		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['false']]|[['comb'|[['quote'|['false']]|[['quote'|['false']]|[['quote'|['false']]]]]]]]]})
1214		  let <_val> =
1215		      <apply 'comb'/3
1216			   ('false', 'false', 'false')>
1217		  in  case <_val> of
1218			<'false'> when 'true' ->
1219			    _val
1220			( <_2> when 'true' ->
1221			      primop 'match_fail'
1222				  ({'badmatch',{_2}})
1223			  -| ['compiler_generated'] )
1224		      end
1225	  ( <_26> when 'true' ->
1226		( primop 'match_fail'
1227		      ({'function_clause',_26})
1228		  -| [{'function_name',{'combined',1}}] )
1229	    -| ['compiler_generated'] )
1230	end
1231'comb'/3 =
1232    %% Line 383
1233    fun (_a,_b,_c) ->
1234	let <_r0> =
1235	    <case case _a of
1236		    <'true'> when 'true' ->
1237			_b
1238		    <'false'> when 'true' ->
1239			'false'
1240		    ( <_omega> when 'true' ->
1241			  primop 'match_fail'
1242			      ('if_clause')
1243		      -| ['compiler_generated'] )
1244		  end of
1245	       <'true'> when 'true' ->
1246		   'true'
1247	       <'false'> when 'true' ->
1248		   _c
1249	       ( <_omega> when 'true' ->
1250		     primop 'match_fail'
1251			 ('if_clause')
1252		 -| ['compiler_generated'] )
1253	     end>
1254	in  case <case 1 of
1255		    <_0>
1256			when try
1257			      let <_2> =
1258				  let <_1> =
1259				      case case _a of
1260					     <'true'> when 'true' ->
1261						 _b
1262					     <'false'> when 'true' ->
1263						 'false'
1264					     ( <_omega> when 'true' ->
1265						   _omega
1266					       -| ['compiler_generated'] )
1267					   end of
1268					<'true'> when 'true' ->
1269					    'true'
1270					<'false'> when 'true' ->
1271					    _c
1272					( <_omega> when 'true' ->
1273					      _omega
1274					  -| ['compiler_generated'] )
1275				      end
1276				  in  ( call 'erlang':'=:='
1277					    (_1, 'true')
1278					-| ['compiler_generated'] )
1279			      in  _2
1280			  of <Try> ->
1281			      Try
1282			  catch <T,R> ->
1283			      'false' ->
1284			'true'
1285		    <_3>
1286			when try
1287			      'true'
1288			  of <Try> ->
1289			      Try
1290			  catch <T,R> ->
1291			      'false' ->
1292			'false'
1293		    ( <_omega> when 'true' ->
1294			  primop 'match_fail'
1295			      ({'case_clause',_omega})
1296		      -| ['compiler_generated'] )
1297		  end> of
1298	      <_r1>
1299		  when try
1300			let <_4> =
1301			    call 'erlang':'=:='
1302				(_r0, _r1)
1303			in  _4
1304		    of <Try> ->
1305			Try
1306		    catch <T,R> ->
1307			'false' ->
1308		  let <_n0> =
1309		      <case 1 of
1310			 <_5>
1311			     when try
1312				   let <_7> =
1313				       let <_6> =
1314					   case case _a of
1315						  <'true'> when 'true' ->
1316						      _b
1317						  <'false'> when 'true' ->
1318						      'false'
1319						  ( <_omega> when 'true' ->
1320							_omega
1321						    -| ['compiler_generated'] )
1322						end of
1323					     <'true'> when 'true' ->
1324						 'true'
1325					     <'false'> when 'true' ->
1326						 _c
1327					     ( <_omega> when 'true' ->
1328						   _omega
1329					       -| ['compiler_generated'] )
1330					   end
1331				       in  call 'erlang':'not'
1332					       (_6)
1333				   in  _7
1334			       of <Try> ->
1335				   Try
1336			       catch <T,R> ->
1337				   'false' ->
1338			     'true'
1339			 <_8>
1340			     when try
1341				   'true'
1342			       of <Try> ->
1343				   Try
1344			       catch <T,R> ->
1345				   'false' ->
1346			     'false'
1347			 ( <_omega> when 'true' ->
1348			       primop 'match_fail'
1349				   ({'case_clause',_omega})
1350			   -| ['compiler_generated'] )
1351		       end>
1352		  in  case <let <_9> =
1353				call 'erlang':'not'
1354				    (_r1)
1355			    in  apply 'id'/1
1356				    (_9)> of
1357			<_n1>
1358			    when try
1359				  let <_10> =
1360				      call 'erlang':'=:='
1361					  (_n0, _n1)
1362				  in  _10
1363			      of <Try> ->
1364				  Try
1365			      catch <T,R> ->
1366				  'false' ->
1367			    case <case case _a of
1368					 <'true'> when 'true' ->
1369					     _b
1370					 <'false'> when 'true' ->
1371					     'false'
1372					 ( <_omega> when 'true' ->
1373					       primop 'match_fail'
1374						   ('if_clause')
1375					   -| ['compiler_generated'] )
1376				       end of
1377				    <'true'> when 'true' ->
1378					'true'
1379				    <'false'> when 'true' ->
1380					_c
1381				    ( <_omega> when 'true' ->
1382					  primop 'match_fail'
1383					      ('if_clause')
1384				      -| ['compiler_generated'] )
1385				  end> of
1386			      <_r2>
1387				  when try
1388					let <_11> =
1389					    call 'erlang':'=:='
1390						(_r1, _r2)
1391					in  _11
1392				    of <Try> ->
1393					Try
1394				    catch <T,R> ->
1395					'false' ->
1396				  case <case 1 of
1397					  <_12>
1398					      when try
1399						    let <_14> =
1400							let <_13> =
1401							    case case _a of
1402								   <'true'> when 'true' ->
1403								       _b
1404								   <'false'> when 'true' ->
1405								       'false'
1406								   ( <_omega> when 'true' ->
1407									 _omega
1408								     -| ['compiler_generated'] )
1409								 end of
1410							      <'true'> when 'true' ->
1411								  'true'
1412							      <'false'> when 'true' ->
1413								  _c
1414							      ( <_omega> when 'true' ->
1415								    _omega
1416								-| ['compiler_generated'] )
1417							    end
1418							in  ( call 'erlang':'=:='
1419								  (_13, 'true')
1420							      -| ['compiler_generated'] )
1421						    in  _14
1422						of <Try> ->
1423						    Try
1424						catch <T,R> ->
1425						    'false' ->
1426					      'true'
1427					  <_15>
1428					      when try
1429						    'true'
1430						of <Try> ->
1431						    Try
1432						catch <T,R> ->
1433						    'false' ->
1434					      'false'
1435					  ( <_omega> when 'true' ->
1436						primop 'match_fail'
1437						    ({'case_clause',_omega})
1438					    -| ['compiler_generated'] )
1439					end> of
1440				    <_r3>
1441					when try
1442					      let <_16> =
1443						  call 'erlang':'=:='
1444						      (_r2, _r3)
1445					      in  _16
1446					  of <Try> ->
1447					      Try
1448					  catch <T,R> ->
1449					      'false' ->
1450					case <let <_17> =
1451						  call 'erlang':'not'
1452						      (_r3)
1453					      in  apply 'id'/1
1454						      (_17)> of
1455					  <_n2>
1456					      when try
1457						    let <_18> =
1458							call 'erlang':'=:='
1459							    (_n1, _n2)
1460						    in  _18
1461						of <Try> ->
1462						    Try
1463						catch <T,R> ->
1464						    'false' ->
1465					      case <case 1 of
1466						      <_19>
1467							  when try
1468								let <_21> =
1469								    let <_20> =
1470									case case _a of
1471									       <'true'> when 'true' ->
1472										   _b
1473									       <'false'> when 'true' ->
1474										   'false'
1475									       ( <_omega> when 'true' ->
1476										     _omega
1477										 -| ['compiler_generated'] )
1478									     end of
1479									  <'true'> when 'true' ->
1480									      'true'
1481									  <'false'> when 'true' ->
1482									      _c
1483									  ( <_omega> when 'true' ->
1484										_omega
1485									    -| ['compiler_generated'] )
1486									end
1487								    in  ( call 'erlang':'=:='
1488									      (_20, 'true')
1489									  -| ['compiler_generated'] )
1490								in  _21
1491							    of <Try> ->
1492								Try
1493							    catch <T,R> ->
1494								'false' ->
1495							  'true'
1496						      <_22>
1497							  when try
1498								'true'
1499							    of <Try> ->
1500								Try
1501							    catch <T,R> ->
1502								'false' ->
1503							  'false'
1504						      ( <_omega> when 'true' ->
1505							    primop 'match_fail'
1506								({'case_clause',_omega})
1507							-| ['compiler_generated'] )
1508						    end> of
1509						<_r4>
1510						    when try
1511							  let <_23> =
1512							      call 'erlang':'=:='
1513								  (_r3, _r4)
1514							  in  _23
1515						      of <Try> ->
1516							  Try
1517						      catch <T,R> ->
1518							  'false' ->
1519						    apply 'id'/1
1520							(_r4)
1521						( <_24> when 'true' ->
1522						      primop 'match_fail'
1523							  ({'badmatch',{_24}})
1524						  -| ['compiler_generated'] )
1525					      end
1526					  ( <_25> when 'true' ->
1527						primop 'match_fail'
1528						    ({'badmatch',{_25}})
1529					    -| ['compiler_generated'] )
1530					end
1531				    ( <_26> when 'true' ->
1532					  primop 'match_fail'
1533					      ({'badmatch',{_26}})
1534				      -| ['compiler_generated'] )
1535				  end
1536			      ( <_27> when 'true' ->
1537				    primop 'match_fail'
1538					({'badmatch',{_27}})
1539				-| ['compiler_generated'] )
1540			    end
1541			( <_28> when 'true' ->
1542			      primop 'match_fail'
1543				  ({'badmatch',{_28}})
1544			  -| ['compiler_generated'] )
1545		      end
1546	      ( <_29> when 'true' ->
1547		    primop 'match_fail'
1548			({'badmatch',{_29}})
1549		-| ['compiler_generated'] )
1550	    end
1551'in_case'/1 =
1552    %% Line 402
1553    fun (_0) ->
1554	case <_0> of
1555	  <_config>
1556	      when try
1557		    let <_1> =
1558			call 'erlang':'is_list'
1559			    (_config)
1560		    in  _1
1561		of <Try> ->
1562		    Try
1563		catch <T,R> ->
1564		    'false' ->
1565	      do  call 'erlang':'put'
1566		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['edge_rings']]|[['in-case-1'|[1|[1|[1|[1|[1]]]]]]]]]})
1567		  let <_val> =
1568		      <apply 'in-case-1'/5
1569			   (1, 1, 1, 1, 1)>
1570		  in  case <_val> of
1571			<'edge_rings'> when 'true' ->
1572			    _val
1573			( <_2> when 'true' ->
1574			      primop 'match_fail'
1575				  ({'badmatch',{_2}})
1576			  -| ['compiler_generated'] )
1577		      end
1578	  ( <_13> when 'true' ->
1579		( primop 'match_fail'
1580		      ({'function_clause',_13})
1581		  -| [{'function_name',{'in_case',1}}] )
1582	    -| ['compiler_generated'] )
1583	end
1584'in-case-1'/5 =
1585    %% Line 419
1586    fun (_lenup,_lendw,_lenn,_rot,_count) ->
1587	let <_r0> =
1588	    <apply 'in-case-1-body'/5
1589		 (_lenup, _lendw, _lenn, _rot, _count)>
1590	in  case <apply 'in-case-1-guard'/5
1591		      (_lenup, _lendw, _lenn, _rot, _count)> of
1592	      <_res>
1593		  when try
1594			let <_0> =
1595			    call 'erlang':'=:='
1596				(_r0, _res)
1597			in  _0
1598		    of <Try> ->
1599			Try
1600		    catch <T,R> ->
1601			'false' ->
1602		  _res
1603	      ( <_1> when 'true' ->
1604		    primop 'match_fail'
1605			({'badmatch',{_1}})
1606		-| ['compiler_generated'] )
1607	    end
1608'in-case-1-body'/5 =
1609    %% Line 425
1610    fun (_lenup,_lendw,_lenn,_rot,_count) ->
1611	case let <_5> =
1612		 let <_2> =
1613		     let <_0> =
1614			 call 'erlang':'/'
1615			     (_lenup, _count)
1616		     in  call 'erlang':'>'
1617			     (_0, 7.06999999999999961808e-01)
1618		 in  let <_3> =
1619			 let <_1> =
1620			     call 'erlang':'/'
1621				 (_lenn, _count)
1622			 in  call 'erlang':'>'
1623				 (_1, 7.06999999999999961808e-01)
1624		     in  call 'erlang':'and'
1625			     (_2, _3)
1626	     in  let <_6> =
1627		     let <_4> =
1628			 call 'erlang':'abs'
1629			     (_rot)
1630		     in  call 'erlang':'>'
1631			     (_4, 7.06999999999999961808e-01)
1632		 in  call 'erlang':'and'
1633			 (_5, _6) of
1634	  <'true'> when 'true' ->
1635	      'edge_rings'
1636	  <'false'> when 'true' ->
1637	      case let <_11> =
1638		       let <_9> =
1639			   let <_7> =
1640			       call 'erlang':'>='
1641				   (_lenup, 1)
1642			   in  let <_8> =
1643				   call 'erlang':'>='
1644				       (_lendw, 1)
1645			       in  call 'erlang':'or'
1646				       (_7, _8)
1647		       in  let <_10> =
1648			       call 'erlang':'=<'
1649				   (_lenn, 1)
1650			   in  call 'erlang':'or'
1651				   (_9, _10)
1652		   in  let <_12> =
1653			   call 'erlang':'>'
1654			       (_count, 4)
1655		       in  call 'erlang':'or'
1656			       (_11, _12) of
1657		<'true'> when 'true' ->
1658		    'not_loop'
1659		<'false'> when 'true' ->
1660		    'loop'
1661		( <_omega> when 'true' ->
1662		      primop 'match_fail'
1663			  ({'case_clause',_omega})
1664		  -| ['compiler_generated'] )
1665	      end
1666	  ( <_omega> when 'true' ->
1667		primop 'match_fail'
1668		    ({'case_clause',_omega})
1669	    -| ['compiler_generated'] )
1670	end
1671'in-case-1-guard'/5 =
1672    %% Line 435
1673    fun (_lenup,_lendw,_lenn,_rot,_count) ->
1674	case case let <_0> =
1675		      call 'erlang':'/'
1676			  (_lenup, _count)
1677		  in  call 'erlang':'>'
1678			  (_0, 7.06999999999999961808e-01) of
1679	       <'true'> when 'true' ->
1680		   case let <_1> =
1681			    call 'erlang':'/'
1682				(_lenn, _count)
1683			in  call 'erlang':'>'
1684				(_1, 7.06999999999999961808e-01) of
1685		     <'true'> when 'true' ->
1686			 let <_2> =
1687			     call 'erlang':'abs'
1688				 (_rot)
1689			 in  call 'erlang':'>'
1690				 (_2, 7.06999999999999961808e-01)
1691		     <'false'> when 'true' ->
1692			 'false'
1693		     ( <_omega> when 'true' ->
1694			   primop 'match_fail'
1695			       ('if_clause')
1696		       -| ['compiler_generated'] )
1697		   end
1698	       <'false'> when 'true' ->
1699		   'false'
1700	       ( <_omega> when 'true' ->
1701		     primop 'match_fail'
1702			 ('if_clause')
1703		 -| ['compiler_generated'] )
1704	     end of
1705	  <'true'> when 'true' ->
1706	      'edge_rings'
1707	  <'false'>
1708	      when try
1709		    let <_4> =
1710			let <_3> =
1711			    case call 'erlang':'>='
1712				     (_lenup, 1) of
1713			      <'true'> when 'true' ->
1714				  'true'
1715			      <'false'> when 'true' ->
1716				  case call 'erlang':'>='
1717					   (_lendw, 1) of
1718				    <'true'> when 'true' ->
1719					'true'
1720				    <'false'> when 'true' ->
1721					case call 'erlang':'=<'
1722						 (_lenn, 1) of
1723					  <'true'> when 'true' ->
1724					      'true'
1725					  <'false'> when 'true' ->
1726					      call 'erlang':'<'
1727						  (_count, 4)
1728					  ( <_omega> when 'true' ->
1729						_omega
1730					    -| ['compiler_generated'] )
1731					end
1732				    ( <_omega> when 'true' ->
1733					  _omega
1734				      -| ['compiler_generated'] )
1735				  end
1736			      ( <_omega> when 'true' ->
1737				    _omega
1738				-| ['compiler_generated'] )
1739			    end
1740			in  ( call 'erlang':'=:='
1741				  (_3, 'true')
1742			      -| ['compiler_generated'] )
1743		    in  _4
1744		of <Try> ->
1745		    Try
1746		catch <T,R> ->
1747		    'false' ->
1748	      'not_loop'
1749	  <'false'> when 'true' ->
1750	      'loop'
1751	  ( <_omega> when 'true' ->
1752		primop 'match_fail'
1753		    ({'case_clause',_omega})
1754	    -| ['compiler_generated'] )
1755	end
1756'before_and_inside_if'/1 =
1757    %% Line 443
1758    fun (_0) ->
1759	case <_0> of
1760	  <_config>
1761	      when try
1762		    let <_1> =
1763			call 'erlang':'is_list'
1764			    (_config)
1765		    in  _1
1766		of <Try> ->
1767		    Try
1768		catch <T,R> ->
1769		    'false' ->
1770	      do  call 'erlang':'put'
1771		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['no']]|[['before-and-inside-if'|[['quote'|[['a']]]|[['quote'|[['b']]]|[['quote'|['delete']]]]]]]]]})
1772		  let <_val> =
1773		      <apply 'before-and-inside-if'/3
1774			   (['a'], ['b'], 'delete')>
1775		  in  case <_val> of
1776			<'no'> when 'true' ->
1777			    _val
1778			( <_2> when 'true' ->
1779			      primop 'match_fail'
1780				  ({'badmatch',{_2}})
1781			  -| ['compiler_generated'] )
1782		      end
1783	  ( <_18> when 'true' ->
1784		( primop 'match_fail'
1785		      ({'function_clause',_18})
1786		  -| [{'function_name',{'before_and_inside_if',1}}] )
1787	    -| ['compiler_generated'] )
1788	end
1789'before-and-inside-if'/3 =
1790    %% Line 468
1791    fun (XDo1,XDo2,Do3) ->
1792	let <Do1> =
1793	    <call 'erlang':'=/='
1794		 (XDo1, [])>
1795	in  let <Do2> =
1796		<call 'erlang':'=/='
1797		     (XDo2, [])>
1798	    in  case 1 of
1799		  <_0>
1800		      when try
1801			    let <_7> =
1802				let <_5> =
1803				    call 'erlang':'=:='
1804					(Do1, 'true')
1805				in  let <_6> =
1806					let <_3> =
1807					    let <_1> =
1808						call 'erlang':'=:='
1809						    (Do1, 'false')
1810					    in  let <_2> =
1811						    call 'erlang':'=:='
1812							(Do2, 'false')
1813						in  call 'erlang':'and'
1814							(_1, _2)
1815					in  let <_4> =
1816						call 'erlang':'=:='
1817						    (Do3, 'delete')
1818					    in  call 'erlang':'and'
1819						    (_3, _4)
1820				    in  call 'erlang':'or'
1821					    (_5, _6)
1822			    in  _7
1823			of <Try> ->
1824			    Try
1825			catch <T,R> ->
1826			    'false' ->
1827		      'no'
1828		  <_8>
1829		      when try
1830			    'true'
1831			of <Try> ->
1832			    Try
1833			catch <T,R> ->
1834			    'false' ->
1835		      'yes'
1836		  ( <_omega> when 'true' ->
1837			primop 'match_fail'
1838			    ({'case_clause',_omega})
1839		    -| ['compiler_generated'] )
1840		end
1841'before-and-inside-if-2'/3 =
1842    %% Line 484
1843    fun (XDo1,XDo2,Do3) ->
1844	let <Do1> =
1845	    <call 'erlang':'=/='
1846		 (XDo1, [])>
1847	in  let <Do2> =
1848		<call 'erlang':'=/='
1849		     (XDo2, [])>
1850	    in  let <CH1> =
1851		    <case 1 of
1852		       <_0>
1853			   when try
1854				 let <_7> =
1855				     let <_5> =
1856					 call 'erlang':'=='
1857					     (Do1, 'true')
1858				     in  let <_6> =
1859					     let <_3> =
1860						 let <_1> =
1861						     call 'erlang':'=='
1862							 (Do1, 'false')
1863						 in  let <_2> =
1864							 call 'erlang':'=='
1865							     (Do2, 'false')
1866						     in  call 'erlang':'and'
1867							     (_1, _2)
1868					     in  let <_4> =
1869						     call 'erlang':'=='
1870							 (Do3, 'blah')
1871						 in  call 'erlang':'and'
1872							 (_3, _4)
1873					 in  call 'erlang':'or'
1874						 (_5, _6)
1875				 in  _7
1876			     of <Try> ->
1877				 Try
1878			     catch <T,R> ->
1879				 'false' ->
1880			   'ch1'
1881		       <_8>
1882			   when try
1883				 'true'
1884			     of <Try> ->
1885				 Try
1886			     catch <T,R> ->
1887				 'false' ->
1888			   'no'
1889		       ( <_omega> when 'true' ->
1890			     primop 'match_fail'
1891				 ({'case_clause',_omega})
1892			 -| ['compiler_generated'] )
1893		     end>
1894		in  let <CH2> =
1895			<case 1 of
1896			   <_9>
1897			       when try
1898				     let <_16> =
1899					 let <_14> =
1900					     call 'erlang':'=='
1901						 (Do1, 'true')
1902					 in  let <_15> =
1903						 let <_12> =
1904						     let <_10> =
1905							 call 'erlang':'=='
1906							     (Do1, 'false')
1907						     in  let <_11> =
1908							     call 'erlang':'=='
1909								 (Do2, 'false')
1910							 in  call 'erlang':'and'
1911								 (_10, _11)
1912						 in  let <_13> =
1913							 call 'erlang':'=='
1914							     (Do3, 'xx')
1915						     in  call 'erlang':'and'
1916							     (_12, _13)
1917					     in  call 'erlang':'or'
1918						     (_14, _15)
1919				     in  _16
1920				 of <Try> ->
1921				     Try
1922				 catch <T,R> ->
1923				     'false' ->
1924			       'ch2'
1925			   <_17>
1926			       when try
1927				     'true'
1928				 of <Try> ->
1929				     Try
1930				 catch <T,R> ->
1931				     'false' ->
1932			       'no'
1933			   ( <_omega> when 'true' ->
1934				 primop 'match_fail'
1935				     ({'case_clause',_omega})
1936			     -| ['compiler_generated'] )
1937			 end>
1938		    in  {CH1,CH2}
1939'check'/2 =
1940    %% Line 501
1941    fun (_v1,_v0) ->
1942	case 1 of
1943	  <_0>
1944	      when try
1945		    let <_1> =
1946			call 'erlang':'/='
1947			    (_v1, _v0)
1948		    in  _1
1949		of <Try> ->
1950		    Try
1951		catch <T,R> ->
1952		    'false' ->
1953	      do  call 'io':'fwrite'
1954		      ([101|[114|[114|[111|[114|[58|[32|[126|[119|[46|[10]]]]]]]]]]], [_v1])
1955		  call 'erlang':'exit'
1956		      ('suite_failed')
1957	  <_2>
1958	      when try
1959		    'true'
1960		of <Try> ->
1961		    Try
1962		catch <T,R> ->
1963		    'false' ->
1964	      call 'io':'fwrite'
1965		  ([111|[107|[58|[32|[126|[119|[46|[10]]]]]]]], [_v1])
1966	  ( <_omega> when 'true' ->
1967		primop 'match_fail'
1968		    ({'case_clause',_omega})
1969	    -| ['compiler_generated'] )
1970	end
1971'echo'/1 =
1972    %% Line 506
1973    fun (_x) ->
1974	do  call 'io':'fwrite'
1975		([40|[101|[118|[97|[108|[32|[126|[119|[41|[59|[32]]]]]]]]]]], [_x])
1976	    _x
1977'id'/1 =
1978    %% Line 511
1979    fun (_i) ->
1980	_i
1981'$handle_undefined_function'/2 =
1982    %% Line 29
1983    fun (_f,_as) ->
1984	case let <_0> =
1985		 call 'lfe_env':'new'
1986		     ()
1987	     in  apply 'LFE-EXPAND-EXPORTED-MACRO'/3
1988		     (_f, _as, _0) of
1989	  <{'yes',_exp}> when 'true' ->
1990	      call 'lfe_eval':'expr'
1991		  (_exp)
1992	  <'no'> when 'true' ->
1993	      let <_a,_b> =
1994		  <_f,_as>
1995	      in  call 'error_handler':'raise_undef_exception'
1996		      ('lfe_andor_SUITE', _a, _b)
1997	  ( <_omega> when 'true' ->
1998		primop 'match_fail'
1999		    ({'case_clause',_omega})
2000	    -| ['compiler_generated'] )
2001	end
2002'LFE-EXPAND-EXPORTED-MACRO'/3 =
2003    %% Line 29
2004    fun (_2,_1,_0) ->
2005	'no'
2006'module_info'/0 =
2007    fun () ->
2008	call 'erlang':'get_module_info'
2009	    ('lfe_andor_SUITE')
2010'module_info'/1 =
2011    fun (_x) ->
2012	call 'erlang':'get_module_info'
2013	    ('lfe_andor_SUITE', _x)
2014end
2015