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