Add test using LFE-generated Core Erlang modules

Ensure that correct (not necessarily optimal) code is generated for
Core Erlang code not originating from v3_core.

7 files changed, 5719 insertions, 1 deletions

diff --git a/lib/compiler/test/Makefile b/lib/compiler/test/Makefile
index f2c68505fc..e338dbb4e3 100644
--- a/lib/compiler/test/Makefile
+++ b/lib/compiler/test/Makefile
@@ -93,6 +93,10 @@ INLINE= \
 	receive \
 	record
 
+CORE_MODULES = \
+	lfe_andor_SUITE \
+	lfe_guard_SUITE
+
 NO_OPT_MODULES= $(NO_OPT:%=%_no_opt_SUITE)
 NO_OPT_ERL_FILES= $(NO_OPT_MODULES:%=%.erl)
 POST_OPT_MODULES= $(NO_OPT:%=%_post_opt_SUITE)
@@ -101,6 +105,8 @@ INLINE_MODULES= $(INLINE:%=%_inline_SUITE)
 INLINE_ERL_FILES= $(INLINE_MODULES:%=%.erl)
 
 ERL_FILES= $(MODULES:%=%.erl)
+CORE_FILES= $(CORE_MODULES:%=%.core)
+ERL_DUMMY_FILES= $(CORE_MODULES:%=%.erl)
 
 ##TARGET_FILES= $(MODULES:%=$(EBIN)/%.$(EMULATOR))
 ##INSTALL_PROGS= $(TARGET_FILES)
@@ -134,6 +140,8 @@ make_emakefile: $(NO_OPT_ERL_FILES) $(POST_OPT_ERL_FILES) $(INLINE_ERL_FILES)
 	-o$(EBIN) $(POST_OPT_MODULES) >> $(EMAKEFILE)
 	$(ERL_TOP)/make/make_emakefile +inline $(ERL_COMPILE_FLAGS) \
 	-o$(EBIN) $(INLINE_MODULES) >> $(EMAKEFILE)
+	$(ERL_TOP)/make/make_emakefile +from_core $(ERL_COMPILE_FLAGS) \
+	-o$(EBIN) $(CORE_MODULES) >> $(EMAKEFILE)
 
 tests debug opt: make_emakefile
 	erl $(ERL_MAKE_FLAGS) -make
@@ -171,6 +179,12 @@ release_tests_spec: make_emakefile
 		$(EMAKEFILE) $(ERL_FILES) "$(RELSYSDIR)"
 	$(INSTALL_DATA) $(NO_OPT_ERL_FILES) $(POST_OPT_ERL_FILES) \
 		$(INLINE_ERL_FILES) "$(RELSYSDIR)"
+	$(INSTALL_DATA) $(CORE_FILES) "$(RELSYSDIR)"
+	for file in $(ERL_DUMMY_FILES); do \
+	    module=`basename $$file .erl`; \
+	    echo "-module($$module). %% dummy .erl file" >$$file; \
+        done
+	$(INSTALL_DATA) $(ERL_DUMMY_FILES) "$(RELSYSDIR)"
 	chmod -R u+w "$(RELSYSDIR)"
 	@tar cf - *_SUITE_data | (cd "$(RELSYSDIR)"; tar xf -)
 
diff --git a/lib/compiler/test/compile_SUITE.erl b/lib/compiler/test/compile_SUITE.erl
index d7e0b3498a..a2d3e2140b 100644
--- a/lib/compiler/test/compile_SUITE.erl
+++ b/lib/compiler/test/compile_SUITE.erl
@@ -1151,8 +1151,15 @@ get_unique_beam_files() ->
 
 get_unique_files(Ext) ->
     Wc = filename:join(filename:dirname(code:which(?MODULE)), "*"++Ext),
-    [F || F <- filelib:wildcard(Wc), not is_cloned(F, Ext)].
+    [F || F <- filelib:wildcard(Wc),
+	  not is_cloned(F, Ext), not is_lfe_module(F, Ext)].
 
 is_cloned(File, Ext) ->
     Mod = list_to_atom(filename:basename(File, Ext)),
     test_lib:is_cloned_mod(Mod).
+
+is_lfe_module(File, Ext) ->
+    case filename:basename(File, Ext) of
+	"lfe_" ++ _ -> true;
+	_ -> false
+    end.
diff --git a/lib/compiler/test/lfe-core.patch b/lib/compiler/test/lfe-core.patch
new file mode 100644
index 0000000000..756d131e2c
--- /dev/null
+++ b/lib/compiler/test/lfe-core.patch
@@ -0,0 +1,97 @@
+Date: Sun, 13 Nov 2016 10:11:11 +0100
+Subject: [PATCH] Fix invalid variable names
+
+---
+ test/lfe_andor_SUITE.core | 16 ++++++++--------
+ test/lfe_guard_SUITE.core | 14 +++++++-------
+ 2 files changed, 15 insertions(+), 15 deletions(-)
+
+diff --git a/test/lfe_andor_SUITE.core b/test/lfe_andor_SUITE.core
+index 96ff765..df58b39 100644
+--- a/test/lfe_andor_SUITE.core
++++ b/test/lfe_andor_SUITE.core
+@@ -288,19 +288,19 @@ module 'lfe_andor_SUITE' ['$handle_undefined_function'/2,
+ 			       'lc$^0'/1 =
+ 				   fun (_2) ->
+ 				       case <_2> of
+-					 <[_x|_|-0-|]> when 'true' ->
++					 <[_x|_lfe0]> when 'true' ->
+ 					     letrec
+ 						 'lc$^1'/1 =
+ 						     fun (_3) ->
+ 							 case <_3> of
+-							   <[_y|_|-1-|]> when 'true' ->
++							   <[_y|_lfe1]> when 'true' ->
+ 							       let <_4> =
+ 								   apply 'lc$^1'/1
+-								       (_|-1-|)
++								       (_lfe1)
+ 							       in  [{_x,_y}|_4]
+ 							   <[]> when 'true' ->
+ 							       apply 'lc$^0'/1
+-								   (_|-0-|)
++								   (_lfe0)
+ 							   ( <_5> when 'true' ->
+ 								 ( primop 'match_fail'
+ 								       ({'function_clause',_5})
+@@ -455,19 +455,19 @@ module 'lfe_andor_SUITE' ['$handle_undefined_function'/2,
+ 			       'lc$^2'/1 =
+ 				   fun (_2) ->
+ 				       case <_2> of
+-					 <[_x|_|-2-|]> when 'true' ->
++					 <[_x|_lfe2]> when 'true' ->
+ 					     letrec
+ 						 'lc$^3'/1 =
+ 						     fun (_3) ->
+ 							 case <_3> of
+-							   <[_y|_|-3-|]> when 'true' ->
++							   <[_y|_lfe3]> when 'true' ->
+ 							       let <_4> =
+ 								   apply 'lc$^3'/1
+-								       (_|-3-|)
++								       (_lfe3)
+ 							       in  [{_x,_y}|_4]
+ 							   <[]> when 'true' ->
+ 							       apply 'lc$^2'/1
+-								   (_|-2-|)
++								   (_lfe2)
+ 							   ( <_5> when 'true' ->
+ 								 ( primop 'match_fail'
+ 								       ({'function_clause',_5})
+diff --git a/test/lfe_guard_SUITE.core b/test/lfe_guard_SUITE.core
+index 38f1d99..920be82 100644
+--- a/test/lfe_guard_SUITE.core
++++ b/test/lfe_guard_SUITE.core
+@@ -2857,22 +2857,22 @@ module 'lfe_guard_SUITE' ['$handle_undefined_function'/2,
+ 		    'false' ->
+ 	      case <_t> of
+ 		<{_a,_b,_c,_d}> when 'true' ->
+-		    let <_|-0-|> =
++		    let <_lfe0> =
+ 			<_a>
+-		    in  let <_|-1-|> =
++		    in  let <_lfe1> =
+ 			    <_b>
+-			in  let <_|-2-|> =
++			in  let <_lfe2> =
+ 				<_c>
+-			    in  let <_|-3-|> =
++			    in  let <_lfe3> =
+ 				    <_d>
+ 				in  let <_4> =
+ 					let <_3> =
+ 					    call 'erlang':'+'
+-						(_|-0-|, _|-1-|)
++						(_lfe0, _lfe1)
+ 					in  call 'erlang':'+'
+-						(_3, _|-2-|)
++						(_3, _lfe2)
+ 				    in  call 'erlang':'+'
+-					    (_4, _|-3-|)
++					    (_4, _lfe3)
+ 		( <_5> when 'true' ->
+ 		      primop 'match_fail'
+ 			  ({'badmatch',{_5}})
+-- 
+2.7.4 (Apple Git-66)
+
diff --git a/lib/compiler/test/lfe-source.patch b/lib/compiler/test/lfe-source.patch
new file mode 100644
index 0000000000..cbd6748bc9
--- /dev/null
+++ b/lib/compiler/test/lfe-source.patch
@@ -0,0 +1,117 @@
+Date: Sun, 13 Nov 2016 09:40:36 +0100
+Subject: [PATCH] Rename and fix up LFE test suites
+
+---
+ test/{andor_SUITE.lfe => lfe_andor_SUITE.lfe} | 16 ++++++++--------
+ test/{guard_SUITE.lfe => lfe_guard_SUITE.lfe} |  8 ++++----
+ 2 files changed, 12 insertions(+), 12 deletions(-)
+ rename test/{andor_SUITE.lfe => lfe_andor_SUITE.lfe} (97%)
+ rename test/{guard_SUITE.lfe => lfe_guard_SUITE.lfe} (99%)
+
+diff --git a/test/andor_SUITE.lfe b/test/lfe_andor_SUITE.lfe
+similarity index 97%
+rename from test/andor_SUITE.lfe
+rename to test/lfe_andor_SUITE.lfe
+index 64feddd..1802b3f 100644
+--- a/test/andor_SUITE.lfe
++++ b/test/lfe_andor_SUITE.lfe
+@@ -26,14 +26,14 @@
+ 
+ (include-file "test_server.lfe")
+ 
+-(defmodule andor_SUITE
++(defmodule lfe_andor_SUITE
+   (export (all 0) (suite 0) (groups 0) (init_per_suite 1) (end_per_suite 1)
+       (init_per_group 2) (end_per_group 2)
+       (t_case 1) (t_and_or 1) (t_andalso 1) (t_orelse 1) (inside 1)
+       (overlap 1) (combined 1) (in_case 1) (before_and_inside_if 1)
+       ))
+ 
+-(defmacro MODULE () `'andor_SUITE)
++(defmacro MODULE () `'lfe_andor_SUITE)
+ 
+ (defun all ()
+   ;; (: test_lib recompile (MODULE))
+@@ -206,7 +206,7 @@
+ 
+ (defun t-andalso-1
+   ([(tuple x y)]
+-   (: lfe_io format '"(andalso ~w ~w): " (list x y))
++   (: io format '"(andalso ~w ~w): " (list x y))
+    (let* ((v0 (andalso (echo x) (echo y)))
+       (v1 (when (=:= v0 v1))
+           (eif (andalso x y) 'true 'true 'false)))
+@@ -248,7 +248,7 @@
+ 
+ (defun t-orelse-1
+   ([(tuple x y)]
+-   (: lfe_io format '"(orelse ~w ~w): " (list x y))
++   (: io format '"(orelse ~w ~w): " (list x y))
+    (let* ((v0 (orelse (echo x) (echo y)))
+       (v1 (when (=:= v0 v1))
+           (eif (orelse x y) 'true 'true 'false)))
+@@ -289,7 +289,7 @@
+        (when (=:= r1 r2) (=:= xm xm2) (=:= ym ym2) (=:= x x2)
+          (=:= y y2) (=:= w w2) (=:= h h2))
+        (inside-guard xm ym x y w h)))
+-      (: lfe_io fwrite
++      (: io fwrite
+     '"(andalso (=< ~p ~p) (< ~p ~p) (=< ~p ~p) (< ~p ~p)) ==> ~p\n"
+     (list x xm xm (+ x w) y ym ym (+ y h) r1)))
+     r1))
+@@ -499,12 +499,12 @@
+ ;; Utilities
+ 
+ (defun check (v1 v0)
+-  (eif (/= v1 v0) (progn (: lfe_io fwrite '"error: ~w.\n" (list v1))
++  (eif (/= v1 v0) (progn (: io fwrite '"error: ~w.\n" (list v1))
+              (exit 'suite_failed))
+-       'true (: lfe_io fwrite '"ok: ~w.\n" (list v1))))
++       'true (: io fwrite '"ok: ~w.\n" (list v1))))
+ 
+ (defun echo (x)
+-  (: lfe_io fwrite '"(eval ~w); " (list x))
++  (: io fwrite '"(eval ~w); " (list x))
+   x)
+ 
+ ;; Call this function to turn off constant propagation.
+diff --git a/test/guard_SUITE.lfe b/test/lfe_guard_SUITE.lfe
+similarity index 99%
+rename from test/guard_SUITE.lfe
+rename to test/lfe_guard_SUITE.lfe
+index 33b1344..2eeb1a6 100644
+--- a/test/guard_SUITE.lfe
++++ b/test/lfe_guard_SUITE.lfe
+@@ -26,7 +26,7 @@
+ 
+ (include-file "test_server.lfe")
+ 
+-(defmodule guard_SUITE
++(defmodule lfe_guard_SUITE
+   (export (all 0) (suite 0) (groups 0) (init_per_suite 1) (end_per_suite 1)
+       (init_per_group 2) (end_per_group 2)
+       (misc 1) (const_cond 1) (basic_not 1) (complex_not 1) (nested_nots 1)
+@@ -42,7 +42,7 @@
+       (check_qlc_hrl 1) (andalso_semi 1) (t_tuple_size 1) (binary_part 1)
+       ))
+ 
+-(defmacro MODULE () `'guard_SUITE)
++(defmacro MODULE () `'lfe_guard_SUITE)
+ 
+ (defun all ()
+   ;; (: test_lib recompile (MODULE))
+@@ -764,9 +764,9 @@
+ 
+ (defun is_function_2
+   ([config] (when (is_list config))
+-   (line (test-pat 'true (is_function (id (function guard_SUITE all 1)) 1)))
++   (line (test-pat 'true (is_function (id (function lfe_guard_SUITE all 1)) 1)))
+    (line (test-pat 'true (is_function (id (lambda () 'ok)) 0)))
+-   (line (test-pat 'false (is_function (id (function guard_SUITE all 1)) 0)))
++   (line (test-pat 'false (is_function (id (function lfe_guard_SUITE all 1)) 0)))
+    (line (test-pat 'false (is_function (id (lambda () 'ok)) 1)))
+ 
+    (let ((F (lambda (_) 'ok)))
+-- 
+2.7.4 (Apple Git-66)
+
diff --git a/lib/compiler/test/lfe.readme b/lib/compiler/test/lfe.readme
new file mode 100644
index 0000000000..2fc88e0252
--- /dev/null
+++ b/lib/compiler/test/lfe.readme
@@ -0,0 +1,31 @@
+Creating the LFE-derived test suites
+====================================
+
+Here is how to create `lfe_andor_SUITE.core` and `lfe_guard_SUITE.core`
+files.
+
+First clone and build LFE.
+
+    git clone https://github.com/rvirding/lfe.git
+    cd lfe
+    git checkout v1.2.0
+    MAKEFLAGS='' make compile
+    export PATH=$(pwd)/bin:$PATH
+
+Apply the source patch to rename and fix up the LFE source code:
+
+    cd test
+    git apply $ERL_TOP/lib/compiler/test/lfe-source.patch
+    git reset --hard HEAD
+
+Compile the modules to Core Erlang:
+
+    lfec +to-core0 lfe*.lfe
+
+Apply the core patch to correct some invalid variable names:
+
+    git apply $ERL_TOP/lib/compiler/test/lfe-core.patch
+
+Copy the patched .core file to the test suite:
+
+    cp lfe*.core $ERL_TOP/lib/compiler/test
diff --git a/lib/compiler/test/lfe_andor_SUITE.core b/lib/compiler/test/lfe_andor_SUITE.core
new file mode 100644
index 0000000000..df58b39ae6
--- /dev/null
+++ b/lib/compiler/test/lfe_andor_SUITE.core
@@ -0,0 +1,2014 @@
+module 'lfe_andor_SUITE' ['$handle_undefined_function'/2,
+			  'LFE-EXPAND-EXPORTED-MACRO'/3,
+			  'all'/0,
+			  'before_and_inside_if'/1,
+			  'combined'/1,
+			  'end_per_group'/2,
+			  'end_per_suite'/1,
+			  'groups'/0,
+			  'in_case'/1,
+			  'init_per_group'/2,
+			  'init_per_suite'/1,
+			  'inside'/1,
+			  'module_info'/0,
+			  'module_info'/1,
+			  'overlap'/1,
+			  'suite'/0,
+			  't_and_or'/1,
+			  't_andalso'/1,
+			  't_case'/1,
+			  't_orelse'/1]
+    attributes []
+'all'/0 =
+    %% Line 38
+    fun () ->
+	['t_case'|['t_and_or'|['t_andalso'|['t_orelse'|['inside'|['overlap'|['combined'|['in_case'|['before_and_inside_if']]]]]]]]]
+'suite'/0 =
+    %% Line 44
+    fun () ->
+	[]
+'groups'/0 =
+    %% Line 46
+    fun () ->
+	[]
+'init_per_suite'/1 =
+    %% Line 48
+    fun (_config) ->
+	_config
+'end_per_suite'/1 =
+    %% Line 50
+    fun (_config) ->
+	'ok'
+'init_per_group'/2 =
+    %% Line 52
+    fun (_name,_config) ->
+	_config
+'end_per_group'/2 =
+    %% Line 54
+    fun (_name,_config) ->
+	_config
+'t_case'/1 =
+    %% Line 56
+    fun (_0) ->
+	case <_0> of
+	  <'suite'> when 'true' ->
+	      []
+	  <'doc'> when 'true' ->
+	      [84|[101|[115|[116|[32|[105|[110|[32|[99|[97|[115|[101|[46]]]]]]]]]]]]]
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['less']]|[['t-case-a'|[1|[2]]]]]]})
+		  let <_val> =
+		      <apply 't-case-a'/2
+			   (1, 2)>
+		  in  case <_val> of
+			<'less'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_25> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_25})
+		  -| [{'function_name',{'t_case',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'t-case-a'/2 =
+    %% Line 94
+    fun (_a,_b) ->
+	case call 'erlang':'<'
+		 (_a, _b) of
+	  <[_0|_1]> when 'true' ->
+	      'ok'
+	  <'true'> when 'true' ->
+	      'less'
+	  <'false'> when 'true' ->
+	      'not_less'
+	  <{'a','b','c'}> when 'true' ->
+	      'ok'
+	  <_2> when 'true' ->
+	      'ok'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'t-case-b'/2 =
+    %% Line 102
+    fun (_a,_b) ->
+	case call 'erlang':'=:='
+		 (_a, _b) of
+	  <'blurf'> when 'true' ->
+	      'ok'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'t-case-c'/2 =
+    %% Line 106
+    fun (_a,_b) ->
+	case let <_0> =
+		 call 'erlang':'=:='
+		     (_a, _b)
+	     in  call 'erlang':'not'
+		     (_0) of
+	  <'true'> when 'true' ->
+	      'ne'
+	  <'false'> when 'true' ->
+	      'eq'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'t-case-d'/3 =
+    %% Line 111
+    fun (_a,_b,_x) ->
+	case let <_0> =
+		 call 'erlang':'=:='
+		     (_a, _b)
+	     in  call 'erlang':'and'
+		     (_0, _x) of
+	  <'true'> when 'true' ->
+	      't'
+	  <'false'> when 'true' ->
+	      'f'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'t-case-e'/2 =
+    %% Line 116
+    fun (_a,_b) ->
+	case call 'erlang':'=:='
+		 (_a, _b) of
+	  <_bool>
+	      when try
+		    let <_0> =
+			call 'erlang':'is_tuple'
+			    (_a)
+		    in  _0
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      apply 'id'/1
+		  (_bool)
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'t-case-xy'/3 =
+    %% Line 120
+    fun (_x,_y,_z) ->
+	let <_r0> =
+	    <apply 't-case-x'/3
+		 (_x, _y, _z)>
+	in  case <apply 't-case-y'/3
+		      (_x, _y, _z)> of
+	      <_res>
+		  when try
+			let <_0> =
+			    call 'erlang':'=:='
+				(_res, _r0)
+			in  _0
+		    of <Try> ->
+			Try
+		    catch <T,R> ->
+			'false' ->
+		  _res
+	      ( <_1> when 'true' ->
+		    primop 'match_fail'
+			({'badmatch',{_1}})
+		-| ['compiler_generated'] )
+	    end
+'t-case-x'/3 =
+    %% Line 125
+    fun (_x,_y,_z) ->
+	case let <_0> =
+		 call 'erlang':'abs'
+		     (_x)
+	     in  call 'erlang':'=:='
+		     (_0, 42) of
+	  <'true'> when 'true' ->
+	      call 'erlang':'=:='
+		  (_y, 100)
+	  <'false'> when 'true' ->
+	      call 'erlang':'=:='
+		  (_z, 700)
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'t-case-y'/3 =
+    %% Line 130
+    fun (_x,_y,_z) ->
+	case let <_0> =
+		 call 'erlang':'abs'
+		     (_x)
+	     in  call 'erlang':'=:='
+		     (_0, 42) of
+	  <'false'> when 'true' ->
+	      call 'erlang':'=:='
+		  (_z, 700)
+	  <'true'> when 'true' ->
+	      call 'erlang':'=:='
+		  (_y, 100)
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'t_and_or'/1 =
+    %% Line 135
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['and'|[['quote'|['true']]|[['quote'|['true']]]]]]]]})
+		  let <_val> =
+		      <call 'erlang':'and'
+			   ('true', 'true')>
+		  in  case <_val> of
+			<'true'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_42> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_42})
+		  -| [{'function_name',{'t_and_or',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'t_andalso'/1 =
+    %% Line 172
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  let <_bs> =
+		      <['true'|['false']]>
+		  in  let <_ps> =
+			  <letrec
+			       'lc$^0'/1 =
+				   fun (_2) ->
+				       case <_2> of
+					 <[_x|_lfe0]> when 'true' ->
+					     letrec
+						 'lc$^1'/1 =
+						     fun (_3) ->
+							 case <_3> of
+							   <[_y|_lfe1]> when 'true' ->
+							       let <_4> =
+								   apply 'lc$^1'/1
+								       (_lfe1)
+							       in  [{_x,_y}|_4]
+							   <[]> when 'true' ->
+							       apply 'lc$^0'/1
+								   (_lfe0)
+							   ( <_5> when 'true' ->
+								 ( primop 'match_fail'
+								       ({'function_clause',_5})
+								   -| [{'function_name',{'t_andalso',1}}] )
+							     -| ['compiler_generated'] )
+							 end
+					     in  apply 'lc$^1'/1
+						     (_bs)
+					 <[]> when 'true' ->
+					     []
+					 ( <_6> when 'true' ->
+					       ( primop 'match_fail'
+						     ({'function_clause',_6})
+						 -| [{'function_name',{'t_andalso',1}}] )
+					   -| ['compiler_generated'] )
+				       end
+			   in  apply 'lc$^0'/1
+				   (_bs)>
+		      in  let <_7> =
+			      fun (_p) ->
+				  apply 't-andalso-1'/1
+				      (_p)
+			  in  call 'lists':'foreach'
+				  (_7, _ps)
+		  do  call 'erlang':'put'
+			  ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['andalso'|[['quote'|['true']]|[['quote'|['true']]]]]]]]})
+		      let <_val> =
+			  <case 'true' of
+			     <'true'> when 'true' ->
+				 'true'
+			     <'false'> when 'true' ->
+				 'false'
+			     ( <_omega> when 'true' ->
+				   primop 'match_fail'
+				       ('if_clause')
+			       -| ['compiler_generated'] )
+			   end>
+		      in  case <_val> of
+			    <'true'> when 'true' ->
+				_val
+			    ( <_8> when 'true' ->
+				  primop 'match_fail'
+				      ({'badmatch',{_8}})
+			      -| ['compiler_generated'] )
+			  end
+	  ( <_57> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_57})
+		  -| [{'function_name',{'t_andalso',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'t-andalso-1'/1 =
+    %% Line 207
+    fun (_0) ->
+	case <_0> of
+	  <{_x,_y}> when 'true' ->
+	      do  call 'io':'format'
+		      ([40|[97|[110|[100|[97|[108|[115|[111|[32|[126|[119|[32|[126|[119|[41|[58|[32]]]]]]]]]]]]]]]]], [_x,_y])
+		  let <_v0> =
+		      <case apply 'echo'/1
+				(_x) of
+			 <'true'> when 'true' ->
+			     apply 'echo'/1
+				 (_y)
+			 <'false'> when 'true' ->
+			     'false'
+			 ( <_omega> when 'true' ->
+			       primop 'match_fail'
+				   ('if_clause')
+			   -| ['compiler_generated'] )
+		       end>
+		  in  case <case 1 of
+			      <_1>
+				  when try
+					let <_3> =
+					    let <_2> =
+						case _x of
+						  <'true'> when 'true' ->
+						      _y
+						  <'false'> when 'true' ->
+						      'false'
+						  ( <_omega> when 'true' ->
+							_omega
+						    -| ['compiler_generated'] )
+						end
+					    in  ( call 'erlang':'=:='
+						      (_2, 'true')
+						  -| ['compiler_generated'] )
+					in  _3
+				    of <Try> ->
+					Try
+				    catch <T,R> ->
+					'false' ->
+				  'true'
+			      <_4>
+				  when try
+					'true'
+				    of <Try> ->
+					Try
+				    catch <T,R> ->
+					'false' ->
+				  'false'
+			      ( <_omega> when 'true' ->
+				    primop 'match_fail'
+					({'case_clause',_omega})
+				-| ['compiler_generated'] )
+			    end> of
+			<_v1>
+			    when try
+				  let <_5> =
+				      call 'erlang':'=:='
+					  (_v0, _v1)
+				  in  _5
+			      of <Try> ->
+				  Try
+			      catch <T,R> ->
+				  'false' ->
+			    let <_6> =
+				call 'erlang':'and'
+				    (_x, _y)
+			    in  apply 'check'/2
+				    (_v1, _6)
+			( <_7> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_7}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_8> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_8})
+		  -| [{'function_name',{'t-andalso-1',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'t_orelse'/1 =
+    %% Line 215
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  let <_bs> =
+		      <['true'|['false']]>
+		  in  let <_ps> =
+			  <letrec
+			       'lc$^2'/1 =
+				   fun (_2) ->
+				       case <_2> of
+					 <[_x|_lfe2]> when 'true' ->
+					     letrec
+						 'lc$^3'/1 =
+						     fun (_3) ->
+							 case <_3> of
+							   <[_y|_lfe3]> when 'true' ->
+							       let <_4> =
+								   apply 'lc$^3'/1
+								       (_lfe3)
+							       in  [{_x,_y}|_4]
+							   <[]> when 'true' ->
+							       apply 'lc$^2'/1
+								   (_lfe2)
+							   ( <_5> when 'true' ->
+								 ( primop 'match_fail'
+								       ({'function_clause',_5})
+								   -| [{'function_name',{'t_orelse',1}}] )
+							     -| ['compiler_generated'] )
+							 end
+					     in  apply 'lc$^3'/1
+						     (_bs)
+					 <[]> when 'true' ->
+					     []
+					 ( <_6> when 'true' ->
+					       ( primop 'match_fail'
+						     ({'function_clause',_6})
+						 -| [{'function_name',{'t_orelse',1}}] )
+					   -| ['compiler_generated'] )
+				       end
+			   in  apply 'lc$^2'/1
+				   (_bs)>
+		      in  let <_7> =
+			      fun (_p) ->
+				  apply 't-orelse-1'/1
+				      (_p)
+			  in  call 'lists':'foreach'
+				  (_7, _ps)
+		  do  call 'erlang':'put'
+			  ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['orelse'|[['quote'|['true']]|[['quote'|['true']]]]]]]]})
+		      let <_val> =
+			  <case 'true' of
+			     <'true'> when 'true' ->
+				 'true'
+			     <'false'> when 'true' ->
+				 'true'
+			     ( <_omega> when 'true' ->
+				   primop 'match_fail'
+				       ('if_clause')
+			       -| ['compiler_generated'] )
+			   end>
+		      in  case <_val> of
+			    <'true'> when 'true' ->
+				_val
+			    ( <_8> when 'true' ->
+				  primop 'match_fail'
+				      ({'badmatch',{_8}})
+			      -| ['compiler_generated'] )
+			  end
+	  ( <_57> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_57})
+		  -| [{'function_name',{'t_orelse',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'t-orelse-1'/1 =
+    %% Line 249
+    fun (_0) ->
+	case <_0> of
+	  <{_x,_y}> when 'true' ->
+	      do  call 'io':'format'
+		      ([40|[111|[114|[101|[108|[115|[101|[32|[126|[119|[32|[126|[119|[41|[58|[32]]]]]]]]]]]]]]]], [_x,_y])
+		  let <_v0> =
+		      <case apply 'echo'/1
+				(_x) of
+			 <'true'> when 'true' ->
+			     'true'
+			 <'false'> when 'true' ->
+			     apply 'echo'/1
+				 (_y)
+			 ( <_omega> when 'true' ->
+			       primop 'match_fail'
+				   ('if_clause')
+			   -| ['compiler_generated'] )
+		       end>
+		  in  case <case 1 of
+			      <_1>
+				  when try
+					let <_3> =
+					    let <_2> =
+						case _x of
+						  <'true'> when 'true' ->
+						      'true'
+						  <'false'> when 'true' ->
+						      _y
+						  ( <_omega> when 'true' ->
+							_omega
+						    -| ['compiler_generated'] )
+						end
+					    in  ( call 'erlang':'=:='
+						      (_2, 'true')
+						  -| ['compiler_generated'] )
+					in  _3
+				    of <Try> ->
+					Try
+				    catch <T,R> ->
+					'false' ->
+				  'true'
+			      <_4>
+				  when try
+					'true'
+				    of <Try> ->
+					Try
+				    catch <T,R> ->
+					'false' ->
+				  'false'
+			      ( <_omega> when 'true' ->
+				    primop 'match_fail'
+					({'case_clause',_omega})
+				-| ['compiler_generated'] )
+			    end> of
+			<_v1>
+			    when try
+				  let <_5> =
+				      call 'erlang':'=:='
+					  (_v0, _v1)
+				  in  _5
+			      of <Try> ->
+				  Try
+			      catch <T,R> ->
+				  'false' ->
+			    let <_6> =
+				call 'erlang':'or'
+				    (_x, _y)
+			    in  apply 'check'/2
+				    (_v1, _6)
+			( <_7> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_7}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_8> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_8})
+		  -| [{'function_name',{'t-orelse-1',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'inside'/1 =
+    %% Line 257
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['inside'|[-8|[1]]]]]]})
+		  let <_val> =
+		      <apply 'inside'/2
+			   (-8, 1)>
+		  in  case <_val> of
+			<'true'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_12> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_12})
+		  -| [{'function_name',{'inside',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'inside'/2 =
+    %% Line 272
+    fun (_xm,_ym) ->
+	let <_x> =
+	    <-1.00000000000000000000e+01>
+	in  let <_y> =
+		<-2.00000000000000000000e+00>
+	    in  let <_w> =
+		    <2.00000000000000000000e+01>
+		in  let <_h> =
+			<4.00000000000000000000e+00>
+		    in  let <_r0> =
+			    <apply 'inside'/6
+				 (_xm, _ym, _x, _y, _w, _h)>
+			in  case <case 1 of
+				    <_0>
+					when try
+					      let <_4> =
+						  let <_3> =
+						      case call 'erlang':'=<'
+							       (_x, _xm) of
+							<'true'> when 'true' ->
+							    case let <_1> =
+								     call 'erlang':'+'
+									 (_x, _w)
+								 in  call 'erlang':'<'
+									 (_xm, _1) of
+							      <'true'> when 'true' ->
+								  case call 'erlang':'=<'
+									   (_y, _ym) of
+								    <'true'> when 'true' ->
+									let <_2> =
+									    call 'erlang':'+'
+										(_y, _h)
+									in  call 'erlang':'<'
+										(_ym, _2)
+								    <'false'> when 'true' ->
+									'false'
+								    ( <_omega> when 'true' ->
+									  _omega
+								      -| ['compiler_generated'] )
+								  end
+							      <'false'> when 'true' ->
+								  'false'
+							      ( <_omega> when 'true' ->
+								    _omega
+								-| ['compiler_generated'] )
+							    end
+							<'false'> when 'true' ->
+							    'false'
+							( <_omega> when 'true' ->
+							      _omega
+							  -| ['compiler_generated'] )
+						      end
+						  in  ( call 'erlang':'=:='
+							    (_3, 'true')
+							-| ['compiler_generated'] )
+					      in  _4
+					  of <Try> ->
+					      Try
+					  catch <T,R> ->
+					      'false' ->
+					'true'
+				    <_5>
+					when try
+					      'true'
+					  of <Try> ->
+					      Try
+					  catch <T,R> ->
+					      'false' ->
+					'false'
+				    ( <_omega> when 'true' ->
+					  primop 'match_fail'
+					      ({'case_clause',_omega})
+				      -| ['compiler_generated'] )
+				  end> of
+			      <_r1>
+				  when try
+					let <_6> =
+					    call 'erlang':'=:='
+						(_r0, _r1)
+					in  _6
+				    of <Try> ->
+					Try
+				    catch <T,R> ->
+					'false' ->
+				  do  case let <_7> =
+					       apply 'id'/1
+						   (_r1)
+					   in  call 'erlang':'not'
+						   (_7) of
+					<_o0> when 'true' ->
+					    case <case 1 of
+						    <_8>
+							when try
+							      let <_12> =
+								  let <_11> =
+								      case call 'erlang':'=<'
+									       (_x, _xm) of
+									<'true'> when 'true' ->
+									    case let <_9> =
+										     call 'erlang':'+'
+											 (_x, _w)
+										 in  call 'erlang':'<'
+											 (_xm, _9) of
+									      <'true'> when 'true' ->
+										  case call 'erlang':'=<'
+											   (_y, _ym) of
+										    <'true'> when 'true' ->
+											let <_10> =
+											    call 'erlang':'+'
+												(_y, _h)
+											in  call 'erlang':'<'
+												(_ym, _10)
+										    <'false'> when 'true' ->
+											'false'
+										    ( <_omega> when 'true' ->
+											  _omega
+										      -| ['compiler_generated'] )
+										  end
+									      <'false'> when 'true' ->
+										  'false'
+									      ( <_omega> when 'true' ->
+										    _omega
+										-| ['compiler_generated'] )
+									    end
+									<'false'> when 'true' ->
+									    'false'
+									( <_omega> when 'true' ->
+									      _omega
+									  -| ['compiler_generated'] )
+								      end
+								  in  call 'erlang':'not'
+									  (_11)
+							      in  _12
+							  of <Try> ->
+							      Try
+							  catch <T,R> ->
+							      'false' ->
+							'true'
+						    <_13>
+							when try
+							      'true'
+							  of <Try> ->
+							      Try
+							  catch <T,R> ->
+							      'false' ->
+							'false'
+						    ( <_omega> when 'true' ->
+							  primop 'match_fail'
+							      ({'case_clause',_omega})
+						      -| ['compiler_generated'] )
+						  end> of
+					      <_o1>
+						  when try
+							let <_14> =
+							    call 'erlang':'=:='
+								(_o0, _o1)
+							in  _14
+						    of <Try> ->
+							Try
+						    catch <T,R> ->
+							'false' ->
+						  _o1
+					      ( <_15> when 'true' ->
+						    primop 'match_fail'
+							({'badmatch',{_15}})
+						-| ['compiler_generated'] )
+					    end
+					( <_omega> when 'true' ->
+					      primop 'match_fail'
+						  ({'case_clause',_omega})
+					  -| ['compiler_generated'] )
+				      end
+				      do  case <apply 'inside-guard'/6
+						    (_xm, _ym, _x, _y, _w, _h)> of
+					    <{_r2,_xm2,_ym2,_x2,_y2,_w2,_h2}>
+						when try
+						      let <_16> =
+							  call 'erlang':'=:='
+							      (_r1, _r2)
+						      in  let <_17> =
+							      call 'erlang':'=:='
+								  (_xm, _xm2)
+							  in  let <_18> =
+								  call 'erlang':'=:='
+								      (_ym, _ym2)
+							      in  let <_19> =
+								      call 'erlang':'=:='
+									  (_x, _x2)
+								  in  let <_20> =
+									  call 'erlang':'=:='
+									      (_y, _y2)
+								      in  let <_21> =
+									      call 'erlang':'=:='
+										  (_w, _w2)
+									  in  let <_22> =
+										  call 'erlang':'=:='
+										      (_h, _h2)
+									      in  let <_23> =
+										      call 'erlang':'and'
+											  (_16, _17)
+										  in  let <_24> =
+											  call 'erlang':'and'
+											      (_23, _18)
+										      in  let <_25> =
+											      call 'erlang':'and'
+												  (_24, _19)
+											  in  let <_26> =
+												  call 'erlang':'and'
+												      (_25, _20)
+											      in  let <_27> =
+												      call 'erlang':'and'
+													  (_26, _21)
+												  in  call 'erlang':'and'
+													  (_27, _22)
+						  of <Try> ->
+						      Try
+						  catch <T,R> ->
+						      'false' ->
+						let <_30> =
+						    let <_28> =
+							call 'erlang':'+'
+							    (_x, _w)
+						    in  let <_29> =
+							    call 'erlang':'+'
+								(_y, _h)
+							in  [_x,_xm,_xm,_28,_y,_ym,_ym,_29,_r1]
+						in  call 'io':'fwrite'
+							([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)
+					    ( <_31> when 'true' ->
+						  primop 'match_fail'
+						      ({'badmatch',{_31}})
+					      -| ['compiler_generated'] )
+					  end
+					  _r1
+			      ( <_32> when 'true' ->
+				    primop 'match_fail'
+					({'badmatch',{_32}})
+				-| ['compiler_generated'] )
+			    end
+'inside'/6 =
+    %% Line 297
+    fun (_xm,_ym,_x,_y,_w,_h) ->
+	case call 'erlang':'=<'
+		 (_x, _xm) of
+	  <'true'> when 'true' ->
+	      case let <_0> =
+		       call 'erlang':'+'
+			   (_x, _w)
+		   in  call 'erlang':'<'
+			   (_xm, _0) of
+		<'true'> when 'true' ->
+		    case call 'erlang':'=<'
+			     (_y, _ym) of
+		      <'true'> when 'true' ->
+			  let <_1> =
+			      call 'erlang':'+'
+				  (_y, _h)
+			  in  call 'erlang':'<'
+				  (_ym, _1)
+		      <'false'> when 'true' ->
+			  'false'
+		      ( <_omega> when 'true' ->
+			    primop 'match_fail'
+				('if_clause')
+			-| ['compiler_generated'] )
+		    end
+		<'false'> when 'true' ->
+		    'false'
+		( <_omega> when 'true' ->
+		      primop 'match_fail'
+			  ('if_clause')
+		  -| ['compiler_generated'] )
+	      end
+	  <'false'> when 'true' ->
+	      'false'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ('if_clause')
+	    -| ['compiler_generated'] )
+	end
+'inside-guard'/6 =
+    %% Line 300
+    fun (_5,_4,_3,_2,_1,_0) ->
+	case <_5,_4,_3,_2,_1,_0> of
+	  <_xm,_ym,_x,_y,_w,_h>
+	      when try
+		    let <_9> =
+			let <_8> =
+			    case call 'erlang':'=<'
+				     (_x, _xm) of
+			      <'true'> when 'true' ->
+				  case let <_6> =
+					   call 'erlang':'+'
+					       (_x, _w)
+				       in  call 'erlang':'<'
+					       (_xm, _6) of
+				    <'true'> when 'true' ->
+					case call 'erlang':'=<'
+						 (_y, _ym) of
+					  <'true'> when 'true' ->
+					      let <_7> =
+						  call 'erlang':'+'
+						      (_y, _h)
+					      in  call 'erlang':'<'
+						      (_ym, _7)
+					  <'false'> when 'true' ->
+					      'false'
+					  ( <_omega> when 'true' ->
+						_omega
+					    -| ['compiler_generated'] )
+					end
+				    <'false'> when 'true' ->
+					'false'
+				    ( <_omega> when 'true' ->
+					  _omega
+				      -| ['compiler_generated'] )
+				  end
+			      <'false'> when 'true' ->
+				  'false'
+			      ( <_omega> when 'true' ->
+				    _omega
+				-| ['compiler_generated'] )
+			    end
+			in  ( call 'erlang':'=:='
+				  (_8, 'true')
+			      -| ['compiler_generated'] )
+		    in  _9
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      {'true',_xm,_ym,_x,_y,_w,_h}
+	  <_xm,_ym,_x,_y,_w,_h> when 'true' ->
+	      {'false',_xm,_ym,_x,_y,_w,_h}
+	  ( <_15,_14,_13,_12,_11,_10> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_15,_14,_13,_12,_11,_10})
+		  -| [{'function_name',{'inside-guard',6}}] )
+	    -| ['compiler_generated'] )
+	end
+'overlap'/1 =
+    %% Line 307
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['true']]|[['overlap'|[7.00000000000000000000e+00|[2.00000000000000000000e+00|[8.00000000000000000000e+00|[5.00000000000000000000e-01]]]]]]]]})
+		  let <_val> =
+		      <apply 'overlap'/4
+			   (7.00000000000000000000e+00, 2.00000000000000000000e+00, 8.00000000000000000000e+00, 5.00000000000000000000e-01)>
+		  in  case <_val> of
+			<'true'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_10> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_10})
+		  -| [{'function_name',{'overlap',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'overlap'/4 =
+    %% Line 321
+    fun (_pos1,_len1,_pos2,_len2) ->
+	let <_r0> =
+	    <case _pos1 of
+	       <_pos1>
+		   when try
+			 let <_3> =
+			     let <_2> =
+				 case case call 'erlang':'=<'
+					       (_pos2, _pos1) of
+					<'true'> when 'true' ->
+					    let <_0> =
+						call 'erlang':'+'
+						    (_pos2, _len2)
+					    in  call 'erlang':'<'
+						    (_pos1, _0)
+					<'false'> when 'true' ->
+					    'false'
+					( <_omega> when 'true' ->
+					      _omega
+					  -| ['compiler_generated'] )
+				      end of
+				   <'true'> when 'true' ->
+				       'true'
+				   <'false'> when 'true' ->
+				       case call 'erlang':'=<'
+						(_pos1, _pos2) of
+					 <'true'> when 'true' ->
+					     let <_1> =
+						 call 'erlang':'+'
+						     (_pos1, _len1)
+					     in  call 'erlang':'<'
+						     (_pos2, _1)
+					 <'false'> when 'true' ->
+					     'false'
+					 ( <_omega> when 'true' ->
+					       _omega
+					   -| ['compiler_generated'] )
+				       end
+				   ( <_omega> when 'true' ->
+					 _omega
+				     -| ['compiler_generated'] )
+				 end
+			     in  ( call 'erlang':'=:='
+				       (_2, 'true')
+				   -| ['compiler_generated'] )
+			 in  _3
+		     of <Try> ->
+			 Try
+		     catch <T,R> ->
+			 'false' ->
+		   'true'
+	       <_pos1> when 'true' ->
+		   'false'
+	       ( <_omega> when 'true' ->
+		     primop 'match_fail'
+			 ({'case_clause',_omega})
+		 -| ['compiler_generated'] )
+	     end>
+	in  case <case case call 'erlang':'=<'
+				(_pos2, _pos1) of
+			 <'true'> when 'true' ->
+			     let <_4> =
+				 call 'erlang':'+'
+				     (_pos2, _len2)
+			     in  call 'erlang':'<'
+				     (_pos1, _4)
+			 <'false'> when 'true' ->
+			     'false'
+			 ( <_omega> when 'true' ->
+			       primop 'match_fail'
+				   ('if_clause')
+			   -| ['compiler_generated'] )
+		       end of
+		    <'true'> when 'true' ->
+			'true'
+		    <'false'> when 'true' ->
+			case call 'erlang':'=<'
+				 (_pos1, _pos2) of
+			  <'true'> when 'true' ->
+			      let <_5> =
+				  call 'erlang':'+'
+				      (_pos1, _len1)
+			      in  call 'erlang':'<'
+				      (_pos2, _5)
+			  <'false'> when 'true' ->
+			      'false'
+			  ( <_omega> when 'true' ->
+				primop 'match_fail'
+				    ('if_clause')
+			    -| ['compiler_generated'] )
+			end
+		    ( <_omega> when 'true' ->
+			  primop 'match_fail'
+			      ('if_clause')
+		      -| ['compiler_generated'] )
+		  end> of
+	      <_r1>
+		  when try
+			let <_6> =
+			    call 'erlang':'=:='
+				(_r0, _r1)
+			in  _6
+		    of <Try> ->
+			Try
+		    catch <T,R> ->
+			'false' ->
+		  case <case _pos1 of
+			  <_pos1>
+			      when try
+				    let <_10> =
+					let <_9> =
+					    case case call 'erlang':'=<'
+							  (_pos2, _pos1) of
+						   <'true'> when 'true' ->
+						       let <_7> =
+							   call 'erlang':'+'
+							       (_pos2, _len2)
+						       in  call 'erlang':'<'
+							       (_pos1, _7)
+						   <'false'> when 'true' ->
+						       'false'
+						   ( <_omega> when 'true' ->
+							 _omega
+						     -| ['compiler_generated'] )
+						 end of
+					      <'true'> when 'true' ->
+						  'true'
+					      <'false'> when 'true' ->
+						  case call 'erlang':'=<'
+							   (_pos1, _pos2) of
+						    <'true'> when 'true' ->
+							let <_8> =
+							    call 'erlang':'+'
+								(_pos1, _len1)
+							in  call 'erlang':'<'
+								(_pos2, _8)
+						    <'false'> when 'true' ->
+							'false'
+						    ( <_omega> when 'true' ->
+							  _omega
+						      -| ['compiler_generated'] )
+						  end
+					      ( <_omega> when 'true' ->
+						    _omega
+						-| ['compiler_generated'] )
+					    end
+					in  ( call 'erlang':'=:='
+						  (_9, 'true')
+					      -| ['compiler_generated'] )
+				    in  _10
+				of <Try> ->
+				    Try
+				catch <T,R> ->
+				    'false' ->
+			      'true'
+			  <_pos1> when 'true' ->
+			      'false'
+			  ( <_omega> when 'true' ->
+				primop 'match_fail'
+				    ({'case_clause',_omega})
+			    -| ['compiler_generated'] )
+			end> of
+		    <_r2>
+			when try
+			      let <_11> =
+				  call 'erlang':'=:='
+				      (_r2, _r1)
+			      in  _11
+			  of <Try> ->
+			      Try
+			  catch <T,R> ->
+			      'false' ->
+			apply 'id'/1
+			    (_r2)
+		    ( <_12> when 'true' ->
+			  primop 'match_fail'
+			      ({'badmatch',{_12}})
+		      -| ['compiler_generated'] )
+		  end
+	      ( <_13> when 'true' ->
+		    primop 'match_fail'
+			({'badmatch',{_13}})
+		-| ['compiler_generated'] )
+	    end
+'combined'/1 =
+    %% Line 348
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['false']]|[['comb'|[['quote'|['false']]|[['quote'|['false']]|[['quote'|['false']]]]]]]]]})
+		  let <_val> =
+		      <apply 'comb'/3
+			   ('false', 'false', 'false')>
+		  in  case <_val> of
+			<'false'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_26> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_26})
+		  -| [{'function_name',{'combined',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'comb'/3 =
+    %% Line 383
+    fun (_a,_b,_c) ->
+	let <_r0> =
+	    <case case _a of
+		    <'true'> when 'true' ->
+			_b
+		    <'false'> when 'true' ->
+			'false'
+		    ( <_omega> when 'true' ->
+			  primop 'match_fail'
+			      ('if_clause')
+		      -| ['compiler_generated'] )
+		  end of
+	       <'true'> when 'true' ->
+		   'true'
+	       <'false'> when 'true' ->
+		   _c
+	       ( <_omega> when 'true' ->
+		     primop 'match_fail'
+			 ('if_clause')
+		 -| ['compiler_generated'] )
+	     end>
+	in  case <case 1 of
+		    <_0>
+			when try
+			      let <_2> =
+				  let <_1> =
+				      case case _a of
+					     <'true'> when 'true' ->
+						 _b
+					     <'false'> when 'true' ->
+						 'false'
+					     ( <_omega> when 'true' ->
+						   _omega
+					       -| ['compiler_generated'] )
+					   end of
+					<'true'> when 'true' ->
+					    'true'
+					<'false'> when 'true' ->
+					    _c
+					( <_omega> when 'true' ->
+					      _omega
+					  -| ['compiler_generated'] )
+				      end
+				  in  ( call 'erlang':'=:='
+					    (_1, 'true')
+					-| ['compiler_generated'] )
+			      in  _2
+			  of <Try> ->
+			      Try
+			  catch <T,R> ->
+			      'false' ->
+			'true'
+		    <_3>
+			when try
+			      'true'
+			  of <Try> ->
+			      Try
+			  catch <T,R> ->
+			      'false' ->
+			'false'
+		    ( <_omega> when 'true' ->
+			  primop 'match_fail'
+			      ({'case_clause',_omega})
+		      -| ['compiler_generated'] )
+		  end> of
+	      <_r1>
+		  when try
+			let <_4> =
+			    call 'erlang':'=:='
+				(_r0, _r1)
+			in  _4
+		    of <Try> ->
+			Try
+		    catch <T,R> ->
+			'false' ->
+		  let <_n0> =
+		      <case 1 of
+			 <_5>
+			     when try
+				   let <_7> =
+				       let <_6> =
+					   case case _a of
+						  <'true'> when 'true' ->
+						      _b
+						  <'false'> when 'true' ->
+						      'false'
+						  ( <_omega> when 'true' ->
+							_omega
+						    -| ['compiler_generated'] )
+						end of
+					     <'true'> when 'true' ->
+						 'true'
+					     <'false'> when 'true' ->
+						 _c
+					     ( <_omega> when 'true' ->
+						   _omega
+					       -| ['compiler_generated'] )
+					   end
+				       in  call 'erlang':'not'
+					       (_6)
+				   in  _7
+			       of <Try> ->
+				   Try
+			       catch <T,R> ->
+				   'false' ->
+			     'true'
+			 <_8>
+			     when try
+				   'true'
+			       of <Try> ->
+				   Try
+			       catch <T,R> ->
+				   'false' ->
+			     'false'
+			 ( <_omega> when 'true' ->
+			       primop 'match_fail'
+				   ({'case_clause',_omega})
+			   -| ['compiler_generated'] )
+		       end>
+		  in  case <let <_9> =
+				call 'erlang':'not'
+				    (_r1)
+			    in  apply 'id'/1
+				    (_9)> of
+			<_n1>
+			    when try
+				  let <_10> =
+				      call 'erlang':'=:='
+					  (_n0, _n1)
+				  in  _10
+			      of <Try> ->
+				  Try
+			      catch <T,R> ->
+				  'false' ->
+			    case <case case _a of
+					 <'true'> when 'true' ->
+					     _b
+					 <'false'> when 'true' ->
+					     'false'
+					 ( <_omega> when 'true' ->
+					       primop 'match_fail'
+						   ('if_clause')
+					   -| ['compiler_generated'] )
+				       end of
+				    <'true'> when 'true' ->
+					'true'
+				    <'false'> when 'true' ->
+					_c
+				    ( <_omega> when 'true' ->
+					  primop 'match_fail'
+					      ('if_clause')
+				      -| ['compiler_generated'] )
+				  end> of
+			      <_r2>
+				  when try
+					let <_11> =
+					    call 'erlang':'=:='
+						(_r1, _r2)
+					in  _11
+				    of <Try> ->
+					Try
+				    catch <T,R> ->
+					'false' ->
+				  case <case 1 of
+					  <_12>
+					      when try
+						    let <_14> =
+							let <_13> =
+							    case case _a of
+								   <'true'> when 'true' ->
+								       _b
+								   <'false'> when 'true' ->
+								       'false'
+								   ( <_omega> when 'true' ->
+									 _omega
+								     -| ['compiler_generated'] )
+								 end of
+							      <'true'> when 'true' ->
+								  'true'
+							      <'false'> when 'true' ->
+								  _c
+							      ( <_omega> when 'true' ->
+								    _omega
+								-| ['compiler_generated'] )
+							    end
+							in  ( call 'erlang':'=:='
+								  (_13, 'true')
+							      -| ['compiler_generated'] )
+						    in  _14
+						of <Try> ->
+						    Try
+						catch <T,R> ->
+						    'false' ->
+					      'true'
+					  <_15>
+					      when try
+						    'true'
+						of <Try> ->
+						    Try
+						catch <T,R> ->
+						    'false' ->
+					      'false'
+					  ( <_omega> when 'true' ->
+						primop 'match_fail'
+						    ({'case_clause',_omega})
+					    -| ['compiler_generated'] )
+					end> of
+				    <_r3>
+					when try
+					      let <_16> =
+						  call 'erlang':'=:='
+						      (_r2, _r3)
+					      in  _16
+					  of <Try> ->
+					      Try
+					  catch <T,R> ->
+					      'false' ->
+					case <let <_17> =
+						  call 'erlang':'not'
+						      (_r3)
+					      in  apply 'id'/1
+						      (_17)> of
+					  <_n2>
+					      when try
+						    let <_18> =
+							call 'erlang':'=:='
+							    (_n1, _n2)
+						    in  _18
+						of <Try> ->
+						    Try
+						catch <T,R> ->
+						    'false' ->
+					      case <case 1 of
+						      <_19>
+							  when try
+								let <_21> =
+								    let <_20> =
+									case case _a of
+									       <'true'> when 'true' ->
+										   _b
+									       <'false'> when 'true' ->
+										   'false'
+									       ( <_omega> when 'true' ->
+										     _omega
+										 -| ['compiler_generated'] )
+									     end of
+									  <'true'> when 'true' ->
+									      'true'
+									  <'false'> when 'true' ->
+									      _c
+									  ( <_omega> when 'true' ->
+										_omega
+									    -| ['compiler_generated'] )
+									end
+								    in  ( call 'erlang':'=:='
+									      (_20, 'true')
+									  -| ['compiler_generated'] )
+								in  _21
+							    of <Try> ->
+								Try
+							    catch <T,R> ->
+								'false' ->
+							  'true'
+						      <_22>
+							  when try
+								'true'
+							    of <Try> ->
+								Try
+							    catch <T,R> ->
+								'false' ->
+							  'false'
+						      ( <_omega> when 'true' ->
+							    primop 'match_fail'
+								({'case_clause',_omega})
+							-| ['compiler_generated'] )
+						    end> of
+						<_r4>
+						    when try
+							  let <_23> =
+							      call 'erlang':'=:='
+								  (_r3, _r4)
+							  in  _23
+						      of <Try> ->
+							  Try
+						      catch <T,R> ->
+							  'false' ->
+						    apply 'id'/1
+							(_r4)
+						( <_24> when 'true' ->
+						      primop 'match_fail'
+							  ({'badmatch',{_24}})
+						  -| ['compiler_generated'] )
+					      end
+					  ( <_25> when 'true' ->
+						primop 'match_fail'
+						    ({'badmatch',{_25}})
+					    -| ['compiler_generated'] )
+					end
+				    ( <_26> when 'true' ->
+					  primop 'match_fail'
+					      ({'badmatch',{_26}})
+				      -| ['compiler_generated'] )
+				  end
+			      ( <_27> when 'true' ->
+				    primop 'match_fail'
+					({'badmatch',{_27}})
+				-| ['compiler_generated'] )
+			    end
+			( <_28> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_28}})
+			  -| ['compiler_generated'] )
+		      end
+	      ( <_29> when 'true' ->
+		    primop 'match_fail'
+			({'badmatch',{_29}})
+		-| ['compiler_generated'] )
+	    end
+'in_case'/1 =
+    %% Line 402
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['edge_rings']]|[['in-case-1'|[1|[1|[1|[1|[1]]]]]]]]]})
+		  let <_val> =
+		      <apply 'in-case-1'/5
+			   (1, 1, 1, 1, 1)>
+		  in  case <_val> of
+			<'edge_rings'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_13> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_13})
+		  -| [{'function_name',{'in_case',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'in-case-1'/5 =
+    %% Line 419
+    fun (_lenup,_lendw,_lenn,_rot,_count) ->
+	let <_r0> =
+	    <apply 'in-case-1-body'/5
+		 (_lenup, _lendw, _lenn, _rot, _count)>
+	in  case <apply 'in-case-1-guard'/5
+		      (_lenup, _lendw, _lenn, _rot, _count)> of
+	      <_res>
+		  when try
+			let <_0> =
+			    call 'erlang':'=:='
+				(_r0, _res)
+			in  _0
+		    of <Try> ->
+			Try
+		    catch <T,R> ->
+			'false' ->
+		  _res
+	      ( <_1> when 'true' ->
+		    primop 'match_fail'
+			({'badmatch',{_1}})
+		-| ['compiler_generated'] )
+	    end
+'in-case-1-body'/5 =
+    %% Line 425
+    fun (_lenup,_lendw,_lenn,_rot,_count) ->
+	case let <_5> =
+		 let <_2> =
+		     let <_0> =
+			 call 'erlang':'/'
+			     (_lenup, _count)
+		     in  call 'erlang':'>'
+			     (_0, 7.06999999999999961808e-01)
+		 in  let <_3> =
+			 let <_1> =
+			     call 'erlang':'/'
+				 (_lenn, _count)
+			 in  call 'erlang':'>'
+				 (_1, 7.06999999999999961808e-01)
+		     in  call 'erlang':'and'
+			     (_2, _3)
+	     in  let <_6> =
+		     let <_4> =
+			 call 'erlang':'abs'
+			     (_rot)
+		     in  call 'erlang':'>'
+			     (_4, 7.06999999999999961808e-01)
+		 in  call 'erlang':'and'
+			 (_5, _6) of
+	  <'true'> when 'true' ->
+	      'edge_rings'
+	  <'false'> when 'true' ->
+	      case let <_11> =
+		       let <_9> =
+			   let <_7> =
+			       call 'erlang':'>='
+				   (_lenup, 1)
+			   in  let <_8> =
+				   call 'erlang':'>='
+				       (_lendw, 1)
+			       in  call 'erlang':'or'
+				       (_7, _8)
+		       in  let <_10> =
+			       call 'erlang':'=<'
+				   (_lenn, 1)
+			   in  call 'erlang':'or'
+				   (_9, _10)
+		   in  let <_12> =
+			   call 'erlang':'>'
+			       (_count, 4)
+		       in  call 'erlang':'or'
+			       (_11, _12) of
+		<'true'> when 'true' ->
+		    'not_loop'
+		<'false'> when 'true' ->
+		    'loop'
+		( <_omega> when 'true' ->
+		      primop 'match_fail'
+			  ({'case_clause',_omega})
+		  -| ['compiler_generated'] )
+	      end
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'in-case-1-guard'/5 =
+    %% Line 435
+    fun (_lenup,_lendw,_lenn,_rot,_count) ->
+	case case let <_0> =
+		      call 'erlang':'/'
+			  (_lenup, _count)
+		  in  call 'erlang':'>'
+			  (_0, 7.06999999999999961808e-01) of
+	       <'true'> when 'true' ->
+		   case let <_1> =
+			    call 'erlang':'/'
+				(_lenn, _count)
+			in  call 'erlang':'>'
+				(_1, 7.06999999999999961808e-01) of
+		     <'true'> when 'true' ->
+			 let <_2> =
+			     call 'erlang':'abs'
+				 (_rot)
+			 in  call 'erlang':'>'
+				 (_2, 7.06999999999999961808e-01)
+		     <'false'> when 'true' ->
+			 'false'
+		     ( <_omega> when 'true' ->
+			   primop 'match_fail'
+			       ('if_clause')
+		       -| ['compiler_generated'] )
+		   end
+	       <'false'> when 'true' ->
+		   'false'
+	       ( <_omega> when 'true' ->
+		     primop 'match_fail'
+			 ('if_clause')
+		 -| ['compiler_generated'] )
+	     end of
+	  <'true'> when 'true' ->
+	      'edge_rings'
+	  <'false'>
+	      when try
+		    let <_4> =
+			let <_3> =
+			    case call 'erlang':'>='
+				     (_lenup, 1) of
+			      <'true'> when 'true' ->
+				  'true'
+			      <'false'> when 'true' ->
+				  case call 'erlang':'>='
+					   (_lendw, 1) of
+				    <'true'> when 'true' ->
+					'true'
+				    <'false'> when 'true' ->
+					case call 'erlang':'=<'
+						 (_lenn, 1) of
+					  <'true'> when 'true' ->
+					      'true'
+					  <'false'> when 'true' ->
+					      call 'erlang':'<'
+						  (_count, 4)
+					  ( <_omega> when 'true' ->
+						_omega
+					    -| ['compiler_generated'] )
+					end
+				    ( <_omega> when 'true' ->
+					  _omega
+				      -| ['compiler_generated'] )
+				  end
+			      ( <_omega> when 'true' ->
+				    _omega
+				-| ['compiler_generated'] )
+			    end
+			in  ( call 'erlang':'=:='
+				  (_3, 'true')
+			      -| ['compiler_generated'] )
+		    in  _4
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'not_loop'
+	  <'false'> when 'true' ->
+	      'loop'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'before_and_inside_if'/1 =
+    %% Line 443
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_andor_SUITE',['test-pat'|[['quote'|['no']]|[['before-and-inside-if'|[['quote'|[['a']]]|[['quote'|[['b']]]|[['quote'|['delete']]]]]]]]]})
+		  let <_val> =
+		      <apply 'before-and-inside-if'/3
+			   (['a'], ['b'], 'delete')>
+		  in  case <_val> of
+			<'no'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_18> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_18})
+		  -| [{'function_name',{'before_and_inside_if',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'before-and-inside-if'/3 =
+    %% Line 468
+    fun (XDo1,XDo2,Do3) ->
+	let <Do1> =
+	    <call 'erlang':'=/='
+		 (XDo1, [])>
+	in  let <Do2> =
+		<call 'erlang':'=/='
+		     (XDo2, [])>
+	    in  case 1 of
+		  <_0>
+		      when try
+			    let <_7> =
+				let <_5> =
+				    call 'erlang':'=:='
+					(Do1, 'true')
+				in  let <_6> =
+					let <_3> =
+					    let <_1> =
+						call 'erlang':'=:='
+						    (Do1, 'false')
+					    in  let <_2> =
+						    call 'erlang':'=:='
+							(Do2, 'false')
+						in  call 'erlang':'and'
+							(_1, _2)
+					in  let <_4> =
+						call 'erlang':'=:='
+						    (Do3, 'delete')
+					    in  call 'erlang':'and'
+						    (_3, _4)
+				    in  call 'erlang':'or'
+					    (_5, _6)
+			    in  _7
+			of <Try> ->
+			    Try
+			catch <T,R> ->
+			    'false' ->
+		      'no'
+		  <_8>
+		      when try
+			    'true'
+			of <Try> ->
+			    Try
+			catch <T,R> ->
+			    'false' ->
+		      'yes'
+		  ( <_omega> when 'true' ->
+			primop 'match_fail'
+			    ({'case_clause',_omega})
+		    -| ['compiler_generated'] )
+		end
+'before-and-inside-if-2'/3 =
+    %% Line 484
+    fun (XDo1,XDo2,Do3) ->
+	let <Do1> =
+	    <call 'erlang':'=/='
+		 (XDo1, [])>
+	in  let <Do2> =
+		<call 'erlang':'=/='
+		     (XDo2, [])>
+	    in  let <CH1> =
+		    <case 1 of
+		       <_0>
+			   when try
+				 let <_7> =
+				     let <_5> =
+					 call 'erlang':'=='
+					     (Do1, 'true')
+				     in  let <_6> =
+					     let <_3> =
+						 let <_1> =
+						     call 'erlang':'=='
+							 (Do1, 'false')
+						 in  let <_2> =
+							 call 'erlang':'=='
+							     (Do2, 'false')
+						     in  call 'erlang':'and'
+							     (_1, _2)
+					     in  let <_4> =
+						     call 'erlang':'=='
+							 (Do3, 'blah')
+						 in  call 'erlang':'and'
+							 (_3, _4)
+					 in  call 'erlang':'or'
+						 (_5, _6)
+				 in  _7
+			     of <Try> ->
+				 Try
+			     catch <T,R> ->
+				 'false' ->
+			   'ch1'
+		       <_8>
+			   when try
+				 'true'
+			     of <Try> ->
+				 Try
+			     catch <T,R> ->
+				 'false' ->
+			   'no'
+		       ( <_omega> when 'true' ->
+			     primop 'match_fail'
+				 ({'case_clause',_omega})
+			 -| ['compiler_generated'] )
+		     end>
+		in  let <CH2> =
+			<case 1 of
+			   <_9>
+			       when try
+				     let <_16> =
+					 let <_14> =
+					     call 'erlang':'=='
+						 (Do1, 'true')
+					 in  let <_15> =
+						 let <_12> =
+						     let <_10> =
+							 call 'erlang':'=='
+							     (Do1, 'false')
+						     in  let <_11> =
+							     call 'erlang':'=='
+								 (Do2, 'false')
+							 in  call 'erlang':'and'
+								 (_10, _11)
+						 in  let <_13> =
+							 call 'erlang':'=='
+							     (Do3, 'xx')
+						     in  call 'erlang':'and'
+							     (_12, _13)
+					     in  call 'erlang':'or'
+						     (_14, _15)
+				     in  _16
+				 of <Try> ->
+				     Try
+				 catch <T,R> ->
+				     'false' ->
+			       'ch2'
+			   <_17>
+			       when try
+				     'true'
+				 of <Try> ->
+				     Try
+				 catch <T,R> ->
+				     'false' ->
+			       'no'
+			   ( <_omega> when 'true' ->
+				 primop 'match_fail'
+				     ({'case_clause',_omega})
+			     -| ['compiler_generated'] )
+			 end>
+		    in  {CH1,CH2}
+'check'/2 =
+    %% Line 501
+    fun (_v1,_v0) ->
+	case 1 of
+	  <_0>
+	      when try
+		    let <_1> =
+			call 'erlang':'/='
+			    (_v1, _v0)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'io':'fwrite'
+		      ([101|[114|[114|[111|[114|[58|[32|[126|[119|[46|[10]]]]]]]]]]], [_v1])
+		  call 'erlang':'exit'
+		      ('suite_failed')
+	  <_2>
+	      when try
+		    'true'
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      call 'io':'fwrite'
+		  ([111|[107|[58|[32|[126|[119|[46|[10]]]]]]]], [_v1])
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'echo'/1 =
+    %% Line 506
+    fun (_x) ->
+	do  call 'io':'fwrite'
+		([40|[101|[118|[97|[108|[32|[126|[119|[41|[59|[32]]]]]]]]]]], [_x])
+	    _x
+'id'/1 =
+    %% Line 511
+    fun (_i) ->
+	_i
+'$handle_undefined_function'/2 =
+    %% Line 29
+    fun (_f,_as) ->
+	case let <_0> =
+		 call 'lfe_env':'new'
+		     ()
+	     in  apply 'LFE-EXPAND-EXPORTED-MACRO'/3
+		     (_f, _as, _0) of
+	  <{'yes',_exp}> when 'true' ->
+	      call 'lfe_eval':'expr'
+		  (_exp)
+	  <'no'> when 'true' ->
+	      let <_a,_b> =
+		  <_f,_as>
+	      in  call 'error_handler':'raise_undef_exception'
+		      ('lfe_andor_SUITE', _a, _b)
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'LFE-EXPAND-EXPORTED-MACRO'/3 =
+    %% Line 29
+    fun (_2,_1,_0) ->
+	'no'
+'module_info'/0 =
+    fun () ->
+	call 'erlang':'get_module_info'
+	    ('lfe_andor_SUITE')
+'module_info'/1 =
+    fun (_x) ->
+	call 'erlang':'get_module_info'
+	    ('lfe_andor_SUITE', _x)
+end
diff --git a/lib/compiler/test/lfe_guard_SUITE.core b/lib/compiler/test/lfe_guard_SUITE.core
new file mode 100644
index 0000000000..920be82f61
--- /dev/null
+++ b/lib/compiler/test/lfe_guard_SUITE.core
@@ -0,0 +1,3438 @@
+module 'lfe_guard_SUITE' ['$handle_undefined_function'/2,
+			  'LFE-EXPAND-EXPORTED-MACRO'/3,
+			  'all'/0,
+			  'and_guard'/1,
+			  'andalso_semi'/1,
+			  'basic_andalso_orelse'/1,
+			  'basic_not'/1,
+			  'binary_part'/1,
+			  'build_in_guard'/1,
+			  'check_qlc_hrl'/1,
+			  'comma'/1,
+			  'complex_not'/1,
+			  'complex_or_guards'/1,
+			  'complex_semicolon'/1,
+			  'const_cond'/1,
+			  'end_per_group'/2,
+			  'end_per_suite'/1,
+			  'gbif'/1,
+			  'groups'/0,
+			  'init_per_group'/2,
+			  'init_per_suite'/1,
+			  'is_function_2'/1,
+			  'literal_type_tests'/1,
+			  'misc'/1,
+			  'module_info'/0,
+			  'module_info'/1,
+			  'more_or_guards'/1,
+			  'more_xor_guards'/1,
+			  'nested_nots'/1,
+			  'old_guard_tests'/1,
+			  'or_guard'/1,
+			  'rel_ops'/1,
+			  'semicolon'/1,
+			  'suite'/0,
+			  't_is_boolean'/1,
+			  't_tuple_size'/1,
+			  'traverse_dcd'/1,
+			  'tricky'/1,
+			  'xor_guard'/1]
+    attributes []
+'all'/0 =
+    %% Line 47
+    fun () ->
+	['misc'|['const_cond'|['basic_not'|['complex_not'|['nested_nots'|['semicolon'|['complex_semicolon'|['comma'|['or_guard'|['more_or_guards'|['complex_or_guards'|['and_guard'|['xor_guard'|['more_xor_guards'|['build_in_guard'|['old_guard_tests'|['gbif'|['t_is_boolean'|['is_function_2'|['tricky'|['rel_ops'|['literal_type_tests'|['basic_andalso_orelse'|['traverse_dcd'|['check_qlc_hrl'|['andalso_semi'|['t_tuple_size'|['binary_part']]]]]]]]]]]]]]]]]]]]]]]]]]]]
+'suite'/0 =
+    %% Line 58
+    fun () ->
+	[]
+'groups'/0 =
+    %% Line 60
+    fun () ->
+	[]
+'init_per_suite'/1 =
+    %% Line 62
+    fun (_config) ->
+	_config
+'end_per_suite'/1 =
+    %% Line 64
+    fun (_config) ->
+	'ok'
+'init_per_group'/2 =
+    %% Line 66
+    fun (_name,_config) ->
+	_config
+'end_per_group'/2 =
+    %% Line 68
+    fun (_name,_config) ->
+	_config
+'misc'/1 =
+    %% Line 70
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[42|[['case'|[['id'|[42]]|[['x'|[['when'|[['-'|['x']]]]|[['quote'|['ok']]]]]|[['x'|['x']]]]]]]]]})
+		  let <_val> =
+		      <case apply 'id'/1
+				(42) of
+			 <_x>
+			     when try
+				   let <_3> =
+				       let <_2> =
+					   call 'erlang':'-'
+					       (_x)
+				       in  ( call 'erlang':'=:='
+						 (_2, 'true')
+					     -| ['compiler_generated'] )
+				   in  _3
+			       of <Try> ->
+				   Try
+			       catch <T,R> ->
+				   'false' ->
+			     'ok'
+			 <_x> when 'true' ->
+			     _x
+			 ( <_omega> when 'true' ->
+			       primop 'match_fail'
+				   ({'case_clause',_omega})
+			   -| ['compiler_generated'] )
+		       end>
+		  in  case <_val> of
+			<42> when 'true' ->
+			    _val
+			( <_4> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_4}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_17> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_17})
+		  -| [{'function_name',{'misc',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'misc-1'/1 =
+    %% Line 93
+    fun (_0) ->
+	case <_0> of
+	  <[{_w},{_x},{_y},{_z}]> when 'true' ->
+	      case 1 of
+		<_1>
+		    when try
+			  let <_4> =
+			      let <_3> =
+				  case call 'erlang':'>'
+					   (_x, _y) of
+				    <'true'> when 'true' ->
+					let <_2> =
+					    call 'erlang':'abs'
+						(_z)
+					in  call 'erlang':'=:='
+						(_2, 2)
+				    <'false'> when 'true' ->
+					'false'
+				    ( <_omega> when 'true' ->
+					  _omega
+				      -| ['compiler_generated'] )
+				  end
+			      in  ( call 'erlang':'=:='
+					(_3, 'true')
+				    -| ['compiler_generated'] )
+			  in  _4
+		      of <Try> ->
+			  Try
+		      catch <T,R> ->
+			  'false' ->
+		    apply 'id'/1
+			(_w)
+		<_5>
+		    when try
+			  'true'
+		      of <Try> ->
+			  Try
+		      catch <T,R> ->
+			  'false' ->
+		    'none'
+		( <_omega> when 'true' ->
+		      primop 'match_fail'
+			  ({'case_clause',_omega})
+		  -| ['compiler_generated'] )
+	      end
+	  ( <_6> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_6})
+		  -| [{'function_name',{'misc-1',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'get-data'/3 =
+    %% Line 99
+    fun (_2,_1,_0) ->
+	case <_2,_1,_0> of
+	  <{'o',_active,_raw},_bytes,_buffer>
+	      when try
+		    let <_5> =
+			let <_3> =
+			    call 'erlang':'=:='
+				(_raw, 'raw')
+			in  let <_4> =
+				call 'erlang':'=:='
+				    (_raw, 0)
+			    in  call 'erlang':'or'
+				    (_3, _4)
+		    in  _5
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      case 1 of
+		<_6>
+		    when try
+			  let <_8> =
+			      let <_7> =
+				  case call 'erlang':'=/='
+					   (_active, 'false') of
+				    <'true'> when 'true' ->
+					'true'
+				    <'false'> when 'true' ->
+					call 'erlang':'=:='
+					    (_bytes, 0)
+				    ( <_omega> when 'true' ->
+					  _omega
+				      -| ['compiler_generated'] )
+				  end
+			      in  ( call 'erlang':'=:='
+					(_7, 'true')
+				    -| ['compiler_generated'] )
+			  in  _8
+		      of <Try> ->
+			  Try
+		      catch <T,R> ->
+			  'false' ->
+		    {'ok',_buffer,#{}#}
+		<_9>
+		    when try
+			  'true'
+		      of <Try> ->
+			  Try
+		      catch <T,R> ->
+			  'false' ->
+		    'error'
+		( <_omega> when 'true' ->
+		      primop 'match_fail'
+			  ({'case_clause',_omega})
+		  -| ['compiler_generated'] )
+	      end
+	  ( <_12,_11,_10> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_12,_11,_10})
+		  -| [{'function_name',{'get-data',3}}] )
+	    -| ['compiler_generated'] )
+	end
+'const_cond'/1 =
+    %% Line 104
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['ok']]|[['const-cond'|[{}|[0]]]]]]})
+		  let <_val> =
+		      <apply 'const-cond'/2
+			   ({}, 0)>
+		  in  case <_val> of
+			<'ok'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_7> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_7})
+		  -| [{'function_name',{'const_cond',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'const-cond'/2 =
+    %% Line 113
+    fun (_t,_sz) ->
+	case _t of
+	  <_0>
+	      when try
+		    'false'
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'never'
+	  <_1>
+	      when try
+		    let <_3> =
+			call 'erlang':'is_tuple'
+			    (_t)
+		    in  let <_4> =
+			    call 'erlang':'=='
+				('eq', 'eq')
+			in  let <_5> =
+				let <_2> =
+				    call 'erlang':'tuple_size'
+					(_t)
+				in  call 'erlang':'=='
+					(_2, _sz)
+			    in  let <_6> =
+				    call 'erlang':'and'
+					(_3, _4)
+				in  call 'erlang':'and'
+					(_6, _5)
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_7>
+	      when try
+		    let <_9> =
+			call 'erlang':'is_tuple'
+			    (_t)
+		    in  let <_10> =
+			    call 'erlang':'=='
+				('eq', 'leq')
+			in  let <_11> =
+				let <_8> =
+				    call 'erlang':'tuple_size'
+					(_t)
+				in  call 'erlang':'=='
+					(_8, _sz)
+			    in  let <_12> =
+				    call 'erlang':'and'
+					(_9, _10)
+				in  call 'erlang':'and'
+					(_12, _11)
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_13> when 'true' ->
+	      'error'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'basic_not'/1 =
+    %% Line 120
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      let <_true> =
+		  <apply 'id'/1
+		       ('true')>
+	      in  let <_false> =
+		      <apply 'id'/1
+			   ('false')>
+		  in  let <_glurf> =
+			  <apply 'id'/1
+			       ('glurf')>
+		      in  let <_a> =
+			      <apply 'id'/1
+				   (5)>
+			  in  let <_b> =
+				  <apply 'id'/1
+				       (3.75000000000000000000e+01)>
+			      in  let <_c> =
+				      <apply 'id'/1
+					   (-1)>
+				  in  let <_d> =
+					  <apply 'id'/1
+					       (5)>
+				      in  let <_atuple> =
+					      <{_false,_true,_glurf}>
+					  in  do  call 'erlang':'put'
+						      ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['not'|[['quote'|['false']]]]|[['quote'|['ok']]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]|[['quote'|['ok']]]]]})
+						  let <_5> =
+						      fun () ->
+							  case 1 of
+							    <_2>
+								when try
+								      let <_3> =
+									  call 'erlang':'not'
+									      ('false')
+								      in  _3
+								  of <Try> ->
+								      Try
+								  catch <T,R> ->
+								      'false' ->
+								'ok'
+							    <_4>
+								when try
+								      'true'
+								  of <Try> ->
+								      Try
+								  catch <T,R> ->
+								      'false' ->
+								'error'
+							    ( <_omega> when 'true' ->
+								  primop 'match_fail'
+								      ({'case_clause',_omega})
+							      -| ['compiler_generated'] )
+							  end
+						  in  apply 'check'/2
+							  (_5, 'ok')
+	  ( <_128> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_128})
+		  -| [{'function_name',{'basic_not',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'complex_not'/1 =
+    %% Line 164
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      let <_atuple> =
+		  <apply 'id'/1
+		       ({'false','true','gurka'})>
+	      in  do  call 'erlang':'put'
+			  ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['not'|[['element'|[1|['atuple']]]]]|[['quote'|['ok']]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]|[['quote'|['ok']]]]]})
+		      let <_6> =
+			  fun () ->
+			      case 1 of
+				<_2>
+				    when try
+					  let <_4> =
+					      let <_3> =
+						  call 'erlang':'element'
+						      (1, _atuple)
+					      in  call 'erlang':'not'
+						      (_3)
+					  in  _4
+				      of <Try> ->
+					  Try
+				      catch <T,R> ->
+					  'false' ->
+				    'ok'
+				<_5>
+				    when try
+					  'true'
+				      of <Try> ->
+					  Try
+				      catch <T,R> ->
+					  'false' ->
+				    'error'
+				( <_omega> when 'true' ->
+				      primop 'match_fail'
+					  ({'case_clause',_omega})
+				  -| ['compiler_generated'] )
+			      end
+		      in  apply 'check'/2
+			      (_6, 'ok')
+	  ( <_50> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_50})
+		  -| [{'function_name',{'complex_not',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'nested_nots'/1 =
+    %% Line 191
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['true']]|[['nested-not-1'|[0|[0]]]]]]})
+		  let <_val> =
+		      <apply 'nested-not-1'/2
+			   (0, 0)>
+		  in  case <_val> of
+			<'true'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_18> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_18})
+		  -| [{'function_name',{'nested_nots',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'nested-not-1'/2 =
+    %% Line 213
+    fun (_1,_0) ->
+	case <_1,_0> of
+	  <_x,_y>
+	      when try
+		    let <_10> =
+			let <_9> =
+			    let <_7> =
+				let <_3> =
+				    call 'erlang':'>'
+					(_x, _y)
+				in  let <_4> =
+					let <_2> =
+					    call 'erlang':'is_atom'
+						(_x)
+					in  call 'erlang':'not'
+						(_2)
+				    in  call 'erlang':'or'
+					    (_3, _4)
+			    in  let <_8> =
+				    let <_5> =
+					call 'erlang':'is_atom'
+					    (_y)
+				    in  let <_6> =
+					    call 'erlang':'=='
+						(_x, 3.39999999999999991118e+00)
+					in  call 'erlang':'or'
+						(_5, _6)
+				in  call 'erlang':'and'
+					(_7, _8)
+			in  call 'erlang':'not'
+				(_9)
+		    in  _10
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'true'
+	  <_11,_12> when 'true' ->
+	      'false'
+	  ( <_14,_13> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_14,_13})
+		  -| [{'function_name',{'nested-not-1',2}}] )
+	    -| ['compiler_generated'] )
+	end
+'nested-not-2'/3 =
+    %% Line 219
+    fun (_x,_y,_z) ->
+	apply 'nested-not-2'/4
+	    (_x, _y, _z, 'true')
+'nested-not-2'/4 =
+    %% Line 222
+    fun (_3,_2,_1,_0) ->
+	case <_3,_2,_1,_0> of
+	  <_x,_y,_z,_true>
+	      when try
+		    let <_12> =
+			let <_11> =
+			    let <_10> =
+				let <_9> =
+				    let <_7> =
+					let <_4> =
+					    call 'erlang':'not'
+						(_x)
+					in  let <_5> =
+						call 'erlang':'not'
+						    (_y)
+					    in  call 'erlang':'and'
+						    (_4, _5)
+				    in  let <_8> =
+					    let <_6> =
+						call 'erlang':'is_atom'
+						    (_z)
+					    in  call 'erlang':'not'
+						    (_6)
+					in  call 'erlang':'or'
+						(_7, _8)
+				in  call 'erlang':'not'
+					(_9)
+			    in  call 'erlang':'and'
+				    (_true, _10)
+			in  call 'erlang':'not'
+				(_11)
+		    in  _12
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'true'
+	  <_13,_14,_15,_16> when 'true' ->
+	      'false'
+	  ( <_20,_19,_18,_17> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_20,_19,_18,_17})
+		  -| [{'function_name',{'nested-not-2',4}}] )
+	    -| ['compiler_generated'] )
+	end
+'semicolon'/1 =
+    %% Line 228
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  ( <_2> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_2})
+		  -| [{'function_name',{'semicolon',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'complex_semicolon'/1 =
+    %% Line 233
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  ( <_2> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_2})
+		  -| [{'function_name',{'complex_semicolon',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'comma'/1 =
+    %% Line 239
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['progn'|[['quote'|['true']]|[['quote'|['false']]]]]|[['quote'|['ok']]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]|[['quote'|['error']]]]]})
+		  let <_6> =
+		      fun () ->
+			  case 1 of
+			    <_2>
+				when try
+				      let <_4> =
+					  let <_3> =
+					      call 'erlang':'and'
+						  ('true', 'false')
+					  in  ( call 'erlang':'=:='
+						    (_3, 'true')
+						-| ['compiler_generated'] )
+				      in  _4
+				  of <Try> ->
+				      Try
+				  catch <T,R> ->
+				      'false' ->
+				'ok'
+			    <_5>
+				when try
+				      'true'
+				  of <Try> ->
+				      Try
+				  catch <T,R> ->
+				      'false' ->
+				'error'
+			    ( <_omega> when 'true' ->
+				  primop 'match_fail'
+				      ({'case_clause',_omega})
+			      -| ['compiler_generated'] )
+			  end
+		  in  apply 'check'/2
+			  (_6, 'error')
+	  ( <_181> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_181})
+		  -| [{'function_name',{'comma',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'or_guard'/1 =
+    %% Line 305
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  let <_true,_false,_glurf> =
+		      <apply 'id'/1
+			   ('true'),apply 'id'/1
+					('false'),apply 'id'/1
+						      ('glurf')>
+		  in  do  call 'erlang':'put'
+			      ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['or'|[['quote'|['true']]|[['quote'|['false']]]]]|[['quote'|['ok']]]]]]]]|[['quote'|['ok']]]]]})
+			  let <_4> =
+			      fun () ->
+				  case 1 of
+				    <_2>
+					when try
+					      let <_3> =
+						  call 'erlang':'or'
+						      ('true', 'false')
+					      in  _3
+					  of <Try> ->
+					      Try
+					  catch <T,R> ->
+					      'false' ->
+					'ok'
+				    ( <_omega> when 'true' ->
+					  primop 'match_fail'
+					      ({'case_clause',_omega})
+				      -| ['compiler_generated'] )
+				  end
+			  in  apply 'check'/2
+				  (_4, 'ok')
+		  'ok'
+	  ( <_64> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_64})
+		  -| [{'function_name',{'or_guard',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'more_or_guards'/1 =
+    %% Line 346
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  let <_true> =
+		      <apply 'id'/1
+			   ('true')>
+		  in  let <_false> =
+			  <apply 'id'/1
+			       ('false')>
+		      in  let <_atuple> =
+			      <apply 'id'/1
+				   ({'false','true','gurks'})>
+			  in  do  call 'erlang':'put'
+				      ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['or'|[['element'|[42|['atuple']]]|['false']]]|[['quote'|['ok']]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]|[['quote'|['error']]]]]})
+				  let <_6> =
+				      fun () ->
+					  case 1 of
+					    <_2>
+						when try
+						      let <_4> =
+							  let <_3> =
+							      call 'erlang':'element'
+								  (42, _atuple)
+							  in  call 'erlang':'or'
+								  (_3, _false)
+						      in  _4
+						  of <Try> ->
+						      Try
+						  catch <T,R> ->
+						      'false' ->
+						'ok'
+					    <_5>
+						when try
+						      'true'
+						  of <Try> ->
+						      Try
+						  catch <T,R> ->
+						      'false' ->
+						'error'
+					    ( <_omega> when 'true' ->
+						  primop 'match_fail'
+						      ({'case_clause',_omega})
+					      -| ['compiler_generated'] )
+					  end
+				  in  apply 'check'/2
+					  (_6, 'error')
+		  'ok'
+	  ( <_68> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_68})
+		  -| [{'function_name',{'more_or_guards',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'complex_or_guards'/1 =
+    %% Line 409
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['ok']]|[['complex-or-1'|[{'a','b','c','d'}|[{1,2,3}]]]]]]})
+		  let <_val> =
+		      <apply 'complex-or-1'/2
+			   ({'a','b','c','d'}, {1,2,3})>
+		  in  case <_val> of
+			<'ok'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_55> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_55})
+		  -| [{'function_name',{'complex_or_guards',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'complex-or-1'/2 =
+    %% Line 487
+    fun (_a,_b) ->
+	case 1 of
+	  <_0>
+	      when try
+		    let <_11> =
+			let <_9> =
+			    let <_3> =
+				let <_1> =
+				    call 'erlang':'tuple_size'
+					(_a)
+				in  call 'erlang':'<'
+					(3, _1)
+			    in  let <_4> =
+				    let <_2> =
+					call 'erlang':'tuple_size'
+					    (_a)
+				    in  call 'erlang':'<'
+					    (_2, 9)
+				in  call 'erlang':'and'
+					(_3, _4)
+			in  let <_10> =
+				let <_7> =
+				    let <_5> =
+					call 'erlang':'tuple_size'
+					    (_b)
+				    in  call 'erlang':'<'
+					    (2, _5)
+				in  let <_8> =
+					let <_6> =
+					    call 'erlang':'tuple_size'
+						(_b)
+					in  call 'erlang':'<'
+						(_6, 7)
+				    in  call 'erlang':'and'
+					    (_7, _8)
+			    in  call 'erlang':'or'
+				    (_9, _10)
+		    in  _11
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_12>
+	      when try
+		    'true'
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'error'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'complex-or-2'/1 =
+    %% Line 492
+    fun (_tuple) ->
+	case 1 of
+	  <_0>
+	      when try
+		    let <_6> =
+			let <_4> =
+			    call 'erlang':'element'
+				(1, _tuple)
+			in  let <_5> =
+				let <_3> =
+				    let <_2> =
+					let <_1> =
+					    call 'erlang':'element'
+						(2, _tuple)
+					in  call 'erlang':'tuple_size'
+						(_1)
+				    in  call 'erlang':'>'
+					    (_2, 3)
+				in  call 'erlang':'not'
+					(_3)
+			    in  call 'erlang':'or'
+				    (_4, _5)
+		    in  _6
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_7>
+	      when try
+		    'true'
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'error'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'complex-or-3'/2 =
+    %% Line 496
+    fun (_a,_b) ->
+	case 1 of
+	  <_0>
+	      when try
+		    let <_5> =
+			let <_3> =
+			    let <_2> =
+				let <_1> =
+				    call 'erlang':'size'
+					(_b)
+				in  call 'erlang':'>'
+					(_1, 3)
+			    in  call 'erlang':'not'
+				    (_2)
+			in  let <_4> =
+				call 'erlang':'element'
+				    (1, _a)
+			    in  call 'erlang':'or'
+				    (_3, _4)
+		    in  _5
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_6>
+	      when try
+		    'true'
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'error'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'complex-or-4'/2 =
+    %% Line 499
+    fun (_a,_b) ->
+	case 1 of
+	  <_0>
+	      when try
+		    let <_7> =
+			let <_5> =
+			    let <_4> =
+				let <_2> =
+				    call 'erlang':'is_tuple'
+					(_a)
+				in  let <_3> =
+					let <_1> =
+					    call 'erlang':'size'
+						(_a)
+					in  call 'erlang':'>'
+						(_1, 3)
+				    in  call 'erlang':'and'
+					    (_2, _3)
+			    in  call 'erlang':'not'
+				    (_4)
+			in  let <_6> =
+				call 'erlang':'element'
+				    (1, _b)
+			    in  call 'erlang':'or'
+				    (_5, _6)
+		    in  _7
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_8>
+	      when try
+		    'true'
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'error'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'complex-or-5'/2 =
+    %% Line 503
+    fun (_a,_b) ->
+	case 1 of
+	  <_0>
+	      when try
+		    let <_8> =
+			let <_6> =
+			    let <_4> =
+				let <_2> =
+				    call 'erlang':'is_tuple'
+					(_a)
+				in  let <_3> =
+					let <_1> =
+					    call 'erlang':'size'
+						(_a)
+					in  call 'erlang':'>'
+						(_1, 3)
+				    in  call 'erlang':'and'
+					    (_2, _3)
+			    in  call 'erlang':'not'
+				    (_4)
+			in  let <_7> =
+				let <_5> =
+				    call 'erlang':'element'
+					(1, _b)
+				in  call 'erlang':'not'
+					(_5)
+			    in  call 'erlang':'or'
+				    (_6, _7)
+		    in  _8
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_9>
+	      when try
+		    'true'
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'error'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'complex-or-6'/2 =
+    %% Line 507
+    fun (_a,_b) ->
+	case 1 of
+	  <_0>
+	      when try
+		    let <_11> =
+			let <_9> =
+			    let <_5> =
+				let <_3> =
+				    let <_1> =
+					call 'erlang':'element'
+					    (1, _a)
+				    in  call 'erlang':'not'
+					    (_1)
+				in  let <_4> =
+					let <_2> =
+					    call 'erlang':'element'
+						(2, _a)
+					in  call 'erlang':'not'
+						(_2)
+				    in  call 'erlang':'and'
+					    (_3, _4)
+			    in  call 'erlang':'not'
+				    (_5)
+			in  let <_10> =
+				let <_8> =
+				    let <_7> =
+					let <_6> =
+					    call 'erlang':'size'
+						(_b)
+					in  call 'erlang':'>'
+						(_6, 3)
+				    in  call 'erlang':'not'
+					    (_7)
+				in  call 'erlang':'not'
+					(_8)
+			    in  call 'erlang':'or'
+				    (_9, _10)
+		    in  _11
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_12>
+	      when try
+		    'true'
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'error'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'and_guard'/1 =
+    %% Line 512
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['and'|[['quote'|['true']]|[['quote'|['false']]]]]|[['quote'|['ok']]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]|[['quote'|['error']]]]]})
+		  let <_5> =
+		      fun () ->
+			  case 1 of
+			    <_2>
+				when try
+				      let <_3> =
+					  call 'erlang':'and'
+					      ('true', 'false')
+				      in  _3
+				  of <Try> ->
+				      Try
+				  catch <T,R> ->
+				      'false' ->
+				'ok'
+			    <_4>
+				when try
+				      'true'
+				  of <Try> ->
+				      Try
+				  catch <T,R> ->
+				      'false' ->
+				'error'
+			    ( <_omega> when 'true' ->
+				  primop 'match_fail'
+				      ({'case_clause',_omega})
+			      -| ['compiler_generated'] )
+			  end
+		  in  apply 'check'/2
+			  (_5, 'error')
+	  ( <_120> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_120})
+		  -| [{'function_name',{'and_guard',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'relprod'/2 =
+    %% Line 588
+    fun (_1,_0) ->
+	case <_1,_0> of
+	  <_r1,_r2>
+	      when try
+		    let <_10> =
+			let <_4> =
+			    let <_2> =
+				call 'erlang':'size'
+				    (_r1)
+			    in  call 'erlang':'=:='
+				    (_2, 3)
+			in  let <_5> =
+				let <_3> =
+				    call 'erlang':'element'
+					(1, _r1)
+				in  call 'erlang':'=:='
+					(_3, 'Set')
+			    in  call 'erlang':'and'
+				    (_4, _5)
+		    in  let <_11> =
+			    let <_8> =
+				let <_6> =
+				    call 'erlang':'size'
+					(_r2)
+				in  call 'erlang':'=:='
+					(_6, 3)
+			    in  let <_9> =
+				    let <_7> =
+					call 'erlang':'element'
+					    (1, _r2)
+				    in  call 'erlang':'=:='
+					    (_7, 'Set')
+				in  call 'erlang':'and'
+					(_8, _9)
+			in  call 'erlang':'and'
+				(_10, _11)
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  ( <_13,_12> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_13,_12})
+		  -| [{'function_name',{'relprod',2}}] )
+	    -| ['compiler_generated'] )
+	end
+'xor_guard'/1 =
+    %% Line 595
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['xor'|[['quote'|['true']]|[['quote'|['false']]]]]|[['quote'|['ok']]]]]]]]|[['quote'|['ok']]]]]})
+		  let <_4> =
+		      fun () ->
+			  case 1 of
+			    <_2>
+				when try
+				      let <_3> =
+					  call 'erlang':'xor'
+					      ('true', 'false')
+				      in  _3
+				  of <Try> ->
+				      Try
+				  catch <T,R> ->
+				      'false' ->
+				'ok'
+			    ( <_omega> when 'true' ->
+				  primop 'match_fail'
+				      ({'case_clause',_omega})
+			      -| ['compiler_generated'] )
+			  end
+		  in  apply 'check'/2
+			  (_4, 'ok')
+	  ( <_54> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_54})
+		  -| [{'function_name',{'xor_guard',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'more_xor_guards'/1 =
+    %% Line 636
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      let <_true,_false,_atuple> =
+		  <apply 'id'/1
+		       ('true'),apply 'id'/1
+				    ('false'),apply 'id'/1
+						  ({'false','true','gurka'})>
+	      in  do  call 'erlang':'put'
+			  ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['xor'|[['element'|[42|['atuple']]]|['false']]]|[['quote'|['ok']]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]|[['quote'|['error']]]]]})
+		      let <_6> =
+			  fun () ->
+			      case 1 of
+				<_2>
+				    when try
+					  let <_4> =
+					      let <_3> =
+						  call 'erlang':'element'
+						      (42, _atuple)
+					      in  call 'erlang':'xor'
+						      (_3, _false)
+					  in  _4
+				      of <Try> ->
+					  Try
+				      catch <T,R> ->
+					  'false' ->
+				    'ok'
+				<_5>
+				    when try
+					  'true'
+				      of <Try> ->
+					  Try
+				      catch <T,R> ->
+					  'false' ->
+				    'error'
+				( <_omega> when 'true' ->
+				      primop 'match_fail'
+					  ({'case_clause',_omega})
+				  -| ['compiler_generated'] )
+			      end
+		      in  apply 'check'/2
+			      (_6, 'error')
+	  ( <_29> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_29})
+		  -| [{'function_name',{'more_xor_guards',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'build_in_guard'/1 =
+    %% Line 666
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      let <_subbin> =
+		  <#{#<64>(8,1,'integer',['unsigned'|['big']]),
+		     #<20>(8,1,'integer',['unsigned'|['big']]),
+		     #<0>(8,1,'integer',['unsigned'|['big']]),
+		     #<0>(8,1,'integer',['unsigned'|['big']]),
+		     #<0>(8,1,'integer',['unsigned'|['big']]),
+		     #<0>(8,1,'integer',['unsigned'|['big']]),
+		     #<0>(8,1,'integer',['unsigned'|['big']]),
+		     #<0>(8,1,'integer',['unsigned'|['big']])}#>
+	      in  let <_b> =
+		      <#{#<1>(8,1,'integer',['unsigned'|['big']]),
+			 #<_subbin>('all',8,'binary',['unsigned'|['big']]),
+			 #<3.50000000000000000000e+00>(64,1,'float',['unsigned'|['big']])}#>
+		  in  do  call 'erlang':'put'
+			      ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['ok']]|[['eif'|[['=:='|['b'|[['binary'|[1|[['subbin'|['binary']]|[[3.50000000000000000000e+00|['float']]]]]]]]]|[['quote'|['ok']]]]]]]]})
+			  let <_val> =
+			      <case 1 of
+				 <_2>
+				     when try
+					   let <_3> =
+					       call 'erlang':'=:='
+						   (_b, #{#<1>(8,1,'integer',['unsigned'|['big']]),
+							  #<_subbin>('all',8,'binary',['unsigned'|['big']]),
+							  #<3.50000000000000000000e+00>(64,1,'float',['unsigned'|['big']])}#)
+					   in  _3
+				       of <Try> ->
+					   Try
+				       catch <T,R> ->
+					   'false' ->
+				     'ok'
+				 ( <_omega> when 'true' ->
+				       primop 'match_fail'
+					   ({'case_clause',_omega})
+				   -| ['compiler_generated'] )
+			       end>
+			  in  case <_val> of
+				<'ok'> when 'true' ->
+				    _val
+				( <_4> when 'true' ->
+				      primop 'match_fail'
+					  ({'badmatch',{_4}})
+				  -| ['compiler_generated'] )
+			      end
+	  ( <_5> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_5})
+		  -| [{'function_name',{'build_in_guard',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'old_guard_tests'/1 =
+    %% Line 674
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  ( <_2> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_2})
+		  -| [{'function_name',{'old_guard_tests',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'gbif'/1 =
+    %% Line 679
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['error']]|[['gbif-1'|[1|[{'false','true'}]]]]]]})
+		  let <_val> =
+		      <apply 'gbif-1'/2
+			   (1, {'false','true'})>
+		  in  case <_val> of
+			<'error'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_4> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_4})
+		  -| [{'function_name',{'gbif',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'gbif-1'/2 =
+    %% Line 685
+    fun (_1,_0) ->
+	case <_1,_0> of
+	  <_p,_t>
+	      when try
+		    let <_3> =
+			let <_2> =
+			    call 'erlang':'element'
+				(_p, _t)
+			in  ( call 'erlang':'=:='
+				  (_2, 'true')
+			      -| ['compiler_generated'] )
+		    in  _3
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_4,_5> when 'true' ->
+	      'error'
+	  ( <_7,_6> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_7,_6})
+		  -| [{'function_name',{'gbif-1',2}}] )
+	    -| ['compiler_generated'] )
+	end
+'t_is_boolean'/1 =
+    %% Line 690
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['true']]|[['is_boolean'|[['quote'|['true']]]]]]]})
+		  let <_val> =
+		      <call 'erlang':'is_boolean'
+			   ('true')>
+		  in  case <_val> of
+			<'true'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_70> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_70})
+		  -| [{'function_name',{'t_is_boolean',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'bool'/1 =
+    %% Line 744
+    fun (_0) ->
+	case <_0> of
+	  <_x>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_boolean'
+			    (_x)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_2> when 'true' ->
+	      'error'
+	  ( <_3> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_3})
+		  -| [{'function_name',{'bool',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'my-is-bool'/1 =
+    %% Line 748
+    fun (_v) ->
+	let <_r0> =
+	    <apply 'my-is-bool-a'/1
+		 (_v)>
+	in  case <apply 'my-is-bool-b'/1
+		      (_v)> of
+	      <_res>
+		  when try
+			let <_0> =
+			    call 'erlang':'=:='
+				(_res, _r0)
+			in  _0
+		    of <Try> ->
+			Try
+		    catch <T,R> ->
+			'false' ->
+		  _res
+	      ( <_1> when 'true' ->
+		    primop 'match_fail'
+			({'badmatch',{_1}})
+		-| ['compiler_generated'] )
+	    end
+'my-is-bool-a'/1 =
+    %% Line 753
+    fun (_v) ->
+	case _v of
+	  <'true'> when 'true' ->
+	      'true'
+	  <'false'> when 'true' ->
+	      'true'
+	  <_0> when 'true' ->
+	      'false'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'my-is-bool-b'/1 =
+    %% Line 759
+    fun (_v) ->
+	case _v of
+	  <'false'> when 'true' ->
+	      'true'
+	  <'true'> when 'true' ->
+	      'true'
+	  <_0> when 'true' ->
+	      'false'
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'is_function_2'/1 =
+    %% Line 765
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['true']]|[['is_function'|[['id'|[['function'|['lfe_guard_SUITE'|['all'|[1]]]]]]|[1]]]]]]})
+		  let <_val> =
+		      <let <_3> =
+			   let <_2> =
+			       call 'erlang':'make_fun'
+				   ('lfe_guard_SUITE', 'all', 1)
+			   in  apply 'id'/1
+				   (_2)
+		       in  call 'erlang':'is_function'
+			       (_3, 1)>
+		  in  case <_val> of
+			<'true'> when 'true' ->
+			    _val
+			( <_4> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_4}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_17> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_17})
+		  -| [{'function_name',{'is_function_2',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'tricky'/1 =
+    %% Line 775
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['not_ok']]|[['tricky-1'|[1|[2]]]]]]})
+		  let <_val> =
+		      <apply 'tricky-1'/2
+			   (1, 2)>
+		  in  case <_val> of
+			<'not_ok'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_12> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_12})
+		  -| [{'function_name',{'tricky',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'tricky-1'/2 =
+    %% Line 791
+    fun (_1,_0) ->
+	case <_1,_0> of
+	  <_x,_y>
+	      when try
+		    let <_6> =
+			let <_5> =
+			    let <_4> =
+				let <_2> =
+				    call 'erlang':'=='
+					(_x, 1)
+				in  let <_3> =
+					call 'erlang':'=='
+					    (_y, 2)
+				    in  call 'erlang':'or'
+					    (_2, _3)
+			    in  call 'erlang':'abs'
+				    (_4)
+			in  ( call 'erlang':'=:='
+				  (_5, 'true')
+			      -| ['compiler_generated'] )
+		    in  _6
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_7,_8> when 'true' ->
+	      'not_ok'
+	  ( <_10,_9> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_10,_9})
+		  -| [{'function_name',{'tricky-1',2}}] )
+	    -| ['compiler_generated'] )
+	end
+'tricky-2'/1 =
+    %% Line 795
+    fun (_0) ->
+	case <_0> of
+	  <_x>
+	      when try
+		    let <_3> =
+			let <_1> =
+			    call 'erlang':'float'
+				(_x)
+			in  let <_2> =
+				call 'erlang':'float'
+				    (_x)
+			    in  call 'erlang':'or'
+				    (_1, _2)
+		    in  _3
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_4> when 'true' ->
+	      'error'
+	  ( <_5> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_5})
+		  -| [{'function_name',{'tricky-2',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'rb'/3 =
+    %% Line 801
+    fun (_2,_1,_0) ->
+	case <_2,_1,_0> of
+	  <_size,_toread,_sofar>
+	      when try
+		    let <_6> =
+			let <_4> =
+			    let <_3> =
+				call 'erlang':'+'
+				    (_sofar, _size)
+			    in  call 'erlang':'<'
+				    (_3, 81920)
+			in  let <_5> =
+				call 'erlang':'=='
+				    (_toread, [])
+			    in  call 'erlang':'or'
+				    (_4, _5)
+		    in  _6
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'true'
+	  <_7,_8,_9> when 'true' ->
+	      'false'
+	  ( <_12,_11,_10> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_12,_11,_10})
+		  -| [{'function_name',{'rb',3}}] )
+	    -| ['compiler_generated'] )
+	end
+'rel_ops'/1 =
+    %% Line 830
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['T'|['=/='|[1|[1.00000000000000000000e+00]]]]})
+		  case <case 1 of
+			  <_2>
+			      when try
+				    let <_3> =
+					call 'erlang':'=/='
+					    (1, 1.00000000000000000000e+00)
+				    in  _3
+				of <Try> ->
+				    Try
+				catch <T,R> ->
+				    'false' ->
+			      'ok'
+			  <_4>
+			      when try
+				    'true'
+				of <Try> ->
+				    Try
+				catch <T,R> ->
+				    'false' ->
+			      'error'
+			  ( <_omega> when 'true' ->
+				primop 'match_fail'
+				    ({'case_clause',_omega})
+			    -| ['compiler_generated'] )
+			end> of
+		    <'ok'> when 'true' ->
+			case <case 1 of
+				<_5>
+				    when try
+					  let <_7> =
+					      let <_6> =
+						  call 'erlang':'=/='
+						      (1, 1.00000000000000000000e+00)
+					      in  call 'erlang':'not'
+						      (_6)
+					  in  _7
+				      of <Try> ->
+					  Try
+				      catch <T,R> ->
+					  'false' ->
+				    'error'
+				<_8>
+				    when try
+					  'true'
+				      of <Try> ->
+					  Try
+				      catch <T,R> ->
+					  'false' ->
+				    'ok'
+				( <_omega> when 'true' ->
+				      primop 'match_fail'
+					  ({'case_clause',_omega})
+				  -| ['compiler_generated'] )
+			      end> of
+			  <'ok'> when 'true' ->
+			      let <_x,_y,_true,_false> =
+				  <apply 'id'/1
+				       (1),apply 'id'/1
+					       (1.00000000000000000000e+00),apply 'id'/1
+										('true'),apply 'id'/1
+											     ('false')>
+			      in  case <case 1 of
+					  <_9>
+					      when try
+						    let <_10> =
+							call 'erlang':'=/='
+							    (_x, _y)
+						    in  _10
+						of <Try> ->
+						    Try
+						catch <T,R> ->
+						    'false' ->
+					      'ok'
+					  <_11>
+					      when try
+						    'true'
+						of <Try> ->
+						    Try
+						catch <T,R> ->
+						    'false' ->
+					      'error'
+					  ( <_omega> when 'true' ->
+						primop 'match_fail'
+						    ({'case_clause',_omega})
+					    -| ['compiler_generated'] )
+					end> of
+				    <'ok'> when 'true' ->
+					case <case 1 of
+						<_12>
+						    when try
+							  let <_15> =
+							      let <_14> =
+								  let <_13> =
+								      call 'erlang':'=/='
+									  (_x, _y)
+								  in  call 'erlang':'or'
+									  (_false, _13)
+							      in  call 'erlang':'or'
+								      (_14, _false)
+							  in  _15
+						      of <Try> ->
+							  Try
+						      catch <T,R> ->
+							  'false' ->
+						    'ok'
+						<_16>
+						    when try
+							  'true'
+						      of <Try> ->
+							  Try
+						      catch <T,R> ->
+							  'false' ->
+						    'error'
+						( <_omega> when 'true' ->
+						      primop 'match_fail'
+							  ({'case_clause',_omega})
+						  -| ['compiler_generated'] )
+					      end> of
+					  <'ok'> when 'true' ->
+					      case <case 1 of
+						      <_17>
+							  when try
+								let <_19> =
+								    let <_18> =
+									call 'erlang':'=/='
+									    (_x, _y)
+								    in  call 'erlang':'and'
+									    (_18, _true)
+								in  _19
+							    of <Try> ->
+								Try
+							    catch <T,R> ->
+								'false' ->
+							  'ok'
+						      <_20>
+							  when try
+								'true'
+							    of <Try> ->
+								Try
+							    catch <T,R> ->
+								'false' ->
+							  'error'
+						      ( <_omega> when 'true' ->
+							    primop 'match_fail'
+								({'case_clause',_omega})
+							-| ['compiler_generated'] )
+						    end> of
+						<'ok'> when 'true' ->
+						    case <case 1 of
+							    <_21>
+								when try
+								      let <_23> =
+									  let <_22> =
+									      call 'erlang':'=/='
+										  (_x, _y)
+									  in  call 'erlang':'not'
+										  (_22)
+								      in  _23
+								  of <Try> ->
+								      Try
+								  catch <T,R> ->
+								      'false' ->
+								'error'
+							    <_24>
+								when try
+								      'true'
+								  of <Try> ->
+								      Try
+								  catch <T,R> ->
+								      'false' ->
+								'ok'
+							    ( <_omega> when 'true' ->
+								  primop 'match_fail'
+								      ({'case_clause',_omega})
+							      -| ['compiler_generated'] )
+							  end> of
+						      <'ok'> when 'true' ->
+							  case <case 1 of
+								  <_25>
+								      when try
+									    let <_29> =
+										let <_28> =
+										    let <_27> =
+											let <_26> =
+											    call 'erlang':'=/='
+												(_x, _y)
+											in  call 'erlang':'not'
+												(_26)
+										    in  call 'erlang':'or'
+											    (_false, _27)
+										in  call 'erlang':'or'
+											(_28, _false)
+									    in  _29
+									of <Try> ->
+									    Try
+									catch <T,R> ->
+									    'false' ->
+								      'error'
+								  <_30>
+								      when try
+									    'true'
+									of <Try> ->
+									    Try
+									catch <T,R> ->
+									    'false' ->
+								      'ok'
+								  ( <_omega> when 'true' ->
+									primop 'match_fail'
+									    ({'case_clause',_omega})
+								    -| ['compiler_generated'] )
+								end> of
+							    <'ok'> when 'true' ->
+								'ok'
+							    ( <_31> when 'true' ->
+								  primop 'match_fail'
+								      ({'badmatch',{_31}})
+							      -| ['compiler_generated'] )
+							  end
+						      ( <_32> when 'true' ->
+							    primop 'match_fail'
+								({'badmatch',{_32}})
+							-| ['compiler_generated'] )
+						    end
+						( <_33> when 'true' ->
+						      primop 'match_fail'
+							  ({'badmatch',{_33}})
+						  -| ['compiler_generated'] )
+					      end
+					  ( <_34> when 'true' ->
+						primop 'match_fail'
+						    ({'badmatch',{_34}})
+					    -| ['compiler_generated'] )
+					end
+				    ( <_35> when 'true' ->
+					  primop 'match_fail'
+					      ({'badmatch',{_35}})
+				      -| ['compiler_generated'] )
+				  end
+			  ( <_36> when 'true' ->
+				primop 'match_fail'
+				    ({'badmatch',{_36}})
+			    -| ['compiler_generated'] )
+			end
+		    ( <_37> when 'true' ->
+			  primop 'match_fail'
+			      ({'badmatch',{_37}})
+		      -| ['compiler_generated'] )
+		  end
+	  ( <_769> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_769})
+		  -| [{'function_name',{'rel_ops',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'literal_type_tests'/1 =
+    %% Line 873
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      case 'guard_suite' of
+		<'guard_suite'> when 'true' ->
+		    apply 'literal-type-tests-1'/1
+			(_config)
+		<_2> when 'true' ->
+		    {'skip',[69|[110|[111|[117|[103|[104|[32|[116|[111|[32|[114|[117|[110|[32|[116|[104|[105|[115|[32|[99|[97|[115|[101|[32|[111|[110|[99|[101|[46]]]]]]]]]]]]]]]]]]]]]]]]]]]]]}
+		( <_omega> when 'true' ->
+		      primop 'match_fail'
+			  ({'case_clause',_omega})
+		  -| ['compiler_generated'] )
+	      end
+	  ( <_3> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_3})
+		  -| [{'function_name',{'literal_type_tests',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'literal-type-tests-1'/1 =
+    %% Line 879
+    fun (_config) ->
+	'ok'
+'basic_andalso_orelse'/1 =
+    %% Line 967
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      let <_t> =
+		  <apply 'id'/1
+		       ({'type','integers',23,42})>
+	      in  do  call 'erlang':'put'
+			  ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[65|[['eif'|[['andalso'|[['=:='|[['element'|[1|['t']]]|[['quote'|['type']]]]]|[['=:='|[['tuple_size'|['t']]|[4]]]|[['=:='|[['element'|[2|['t']]]|[['quote'|['integers']]]]]]]]]|[['+'|[['element'|[3|['t']]]|[['element'|[4|['t']]]]]]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]})
+		      let <_val> =
+			  <case 1 of
+			     <_2>
+				 when try
+				       let <_7> =
+					   let <_6> =
+					       case let <_3> =
+							call 'erlang':'element'
+							    (1, _t)
+						    in  call 'erlang':'=:='
+							    (_3, 'type') of
+						 <'true'> when 'true' ->
+						     case let <_4> =
+							      call 'erlang':'tuple_size'
+								  (_t)
+							  in  call 'erlang':'=:='
+								  (_4, 4) of
+						       <'true'> when 'true' ->
+							   let <_5> =
+							       call 'erlang':'element'
+								   (2, _t)
+							   in  call 'erlang':'=:='
+								   (_5, 'integers')
+						       <'false'> when 'true' ->
+							   'false'
+						       ( <_omega> when 'true' ->
+							     _omega
+							 -| ['compiler_generated'] )
+						     end
+						 <'false'> when 'true' ->
+						     'false'
+						 ( <_omega> when 'true' ->
+						       _omega
+						   -| ['compiler_generated'] )
+					       end
+					   in  ( call 'erlang':'=:='
+						     (_6, 'true')
+						 -| ['compiler_generated'] )
+				       in  _7
+				   of <Try> ->
+				       Try
+				   catch <T,R> ->
+				       'false' ->
+				 let <_8> =
+				     call 'erlang':'element'
+					 (3, _t)
+				 in  let <_9> =
+					 call 'erlang':'element'
+					     (4, _t)
+				     in  call 'erlang':'+'
+					     (_8, _9)
+			     <_10>
+				 when try
+				       'true'
+				   of <Try> ->
+				       Try
+				   catch <T,R> ->
+				       'false' ->
+				 'error'
+			     ( <_omega> when 'true' ->
+				   primop 'match_fail'
+				       ({'case_clause',_omega})
+			       -| ['compiler_generated'] )
+			   end>
+		      in  case <_val> of
+			    <65> when 'true' ->
+				_val
+			    ( <_11> when 'true' ->
+				  primop 'match_fail'
+				      ({'badmatch',{_11}})
+			      -| ['compiler_generated'] )
+			  end
+	  ( <_47> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_47})
+		  -| [{'function_name',{'basic_andalso_orelse',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'basic-rt'/1 =
+    %% Line 1020
+    fun (_0) ->
+	case <_0> of
+	  <_t>
+	      when try
+		    let <_5> =
+			let <_4> =
+			    case call 'erlang':'is_tuple'
+				     (_t) of
+			      <'true'> when 'true' ->
+				  case let <_1> =
+					   call 'erlang':'tuple_size'
+					       (_t)
+				       in  call 'erlang':'=:='
+					       (_1, 4) of
+				    <'true'> when 'true' ->
+					case let <_2> =
+						 call 'erlang':'element'
+						     (1, _t)
+					     in  call 'erlang':'=:='
+						     (_2, 'type') of
+					  <'true'> when 'true' ->
+					      let <_3> =
+						  call 'erlang':'element'
+						      (2, _t)
+					      in  call 'erlang':'=='
+						      (_3, 'integers')
+					  <'false'> when 'true' ->
+					      'false'
+					  ( <_omega> when 'true' ->
+						_omega
+					    -| ['compiler_generated'] )
+					end
+				    <'false'> when 'true' ->
+					'false'
+				    ( <_omega> when 'true' ->
+					  _omega
+				      -| ['compiler_generated'] )
+				  end
+			      <'false'> when 'true' ->
+				  'false'
+			      ( <_omega> when 'true' ->
+				    _omega
+				-| ['compiler_generated'] )
+			    end
+			in  ( call 'erlang':'=:='
+				  (_4, 'true')
+			      -| ['compiler_generated'] )
+		    in  _5
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      let <_6> =
+		  call 'erlang':'element'
+		      (3, _t)
+	      in  let <_7> =
+		      call 'erlang':'element'
+			  (4, _t)
+		  in  call 'erlang':'+'
+			  (_6, _7)
+	  <_t>
+	      when try
+		    let <_11> =
+			let <_10> =
+			    case call 'erlang':'is_tuple'
+				     (_t) of
+			      <'true'> when 'true' ->
+				  case let <_8> =
+					   call 'erlang':'tuple_size'
+					       (_t)
+				       in  call 'erlang':'=:='
+					       (_8, 2) of
+				    <'true'> when 'true' ->
+					let <_9> =
+					    call 'erlang':'element'
+						(1, _t)
+					in  call 'erlang':'=:='
+						(_9, 'vector')
+				    <'false'> when 'true' ->
+					'false'
+				    ( <_omega> when 'true' ->
+					  _omega
+				      -| ['compiler_generated'] )
+				  end
+			      <'false'> when 'true' ->
+				  'false'
+			      ( <_omega> when 'true' ->
+				    _omega
+				-| ['compiler_generated'] )
+			    end
+			in  ( call 'erlang':'=:='
+				  (_10, 'true')
+			      -| ['compiler_generated'] )
+		    in  _11
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      case <call 'erlang':'element'
+			(2, _t)> of
+		<{_x,_y}> when 'true' ->
+		    case 1 of
+		      <_12>
+			  when try
+				let <_16> =
+				    let <_15> =
+					let <_13> =
+					    call 'erlang':'is_float'
+						(_x)
+					in  let <_14> =
+						call 'erlang':'is_float'
+						    (_y)
+					    in  call 'erlang':'and'
+						    (_13, _14)
+				    in  ( call 'erlang':'=:='
+					      (_15, 'true')
+					  -| ['compiler_generated'] )
+				in  _16
+			    of <Try> ->
+				Try
+			    catch <T,R> ->
+				'false' ->
+			  let <_19> =
+			      let <_17> =
+				  call 'erlang':'*'
+				      (_x, _x)
+			      in  let <_18> =
+				      call 'erlang':'*'
+					  (_y, _y)
+				  in  call 'erlang':'+'
+					  (_17, _18)
+			  in  call 'math':'sqrt'
+				  (_19)
+		      ( <_omega> when 'true' ->
+			    primop 'match_fail'
+				({'case_clause',_omega})
+			-| ['compiler_generated'] )
+		    end
+		( <_20> when 'true' ->
+		      primop 'match_fail'
+			  ({'badmatch',{_20}})
+		  -| ['compiler_generated'] )
+	      end
+	  <['+',_a,_b]> when 'true' ->
+	      let <_22> =
+		  let <_21> =
+		      call 'erlang':'+'
+			  (_a, _b)
+		  in  apply 'id'/1
+			  (_21)
+	      in  call 'erlang':'*'
+		      (_22, 2)
+	  <{_r1,_r2}>
+	      when try
+		    let <_28> =
+			let <_27> =
+			    case let <_23> =
+				     call 'erlang':'size'
+					 (_r1)
+				 in  call 'erlang':'=:='
+					 (_23, 3) of
+			      <'true'> when 'true' ->
+				  case let <_24> =
+					   call 'erlang':'element'
+					       (1, _r1)
+				       in  call 'erlang':'=:='
+					       (_24, 'Set') of
+				    <'true'> when 'true' ->
+					case let <_25> =
+						 call 'erlang':'size'
+						     (_r2)
+					     in  call 'erlang':'=:='
+						     (_25, 3) of
+					  <'true'> when 'true' ->
+					      let <_26> =
+						  call 'erlang':'element'
+						      (1, _r2)
+					      in  call 'erlang':'=:='
+						      (_26, 'Set')
+					  <'false'> when 'true' ->
+					      'false'
+					  ( <_omega> when 'true' ->
+						_omega
+					    -| ['compiler_generated'] )
+					end
+				    <'false'> when 'true' ->
+					'false'
+				    ( <_omega> when 'true' ->
+					  _omega
+				      -| ['compiler_generated'] )
+				  end
+			      <'false'> when 'true' ->
+				  'false'
+			      ( <_omega> when 'true' ->
+				    _omega
+				-| ['compiler_generated'] )
+			    end
+			in  ( call 'erlang':'=:='
+				  (_27, 'true')
+			      -| ['compiler_generated'] )
+		    in  _28
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      let <_r1> =
+		  <apply 'id'/1
+		       (_r1)>
+	      in  let <_r2> =
+		      <apply 'id'/1
+			   (_r2)>
+		  in  _r1
+	  <_t>
+	      when try
+		    let <_32> =
+			let <_31> =
+			    case call 'erlang':'is_tuple'
+				     (_t) of
+			      <'true'> when 'true' ->
+				  case let <_29> =
+					   call 'erlang':'tuple_size'
+					       (_t)
+				       in  call 'erlang':'=:='
+					       (_29, 2) of
+				    <'true'> when 'true' ->
+					let <_30> =
+					    call 'erlang':'element'
+						(1, _t)
+					in  call 'erlang':'=:='
+						(_30, 'klurf')
+				    <'false'> when 'true' ->
+					'false'
+				    ( <_omega> when 'true' ->
+					  _omega
+				      -| ['compiler_generated'] )
+				  end
+			      <'false'> when 'true' ->
+				  'false'
+			      ( <_omega> when 'true' ->
+				    _omega
+				-| ['compiler_generated'] )
+			    end
+			in  ( call 'erlang':'=:='
+				  (_31, 'true')
+			      -| ['compiler_generated'] )
+		    in  _32
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      let <_34> =
+		  let <_33> =
+		      call 'erlang':'element'
+			  (2, _t)
+		  in  apply 'id'/1
+			  (_33)
+	      in  call 'erlang':'*'
+		      (3, _34)
+	  <_35> when 'true' ->
+	      'error'
+	  ( <_36> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_36})
+		  -| [{'function_name',{'basic-rt',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'traverse_dcd'/1 =
+    %% Line 1043
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      let <_l0> =
+		  <[{'log_header','dcd_log',[49|[46|[48]]],'a','b','c'}|[{'log_header','dcd_log',[50|[46|[48]]],'a','b','c'}|[{'log_header','dcd_log',[48|[46|[48]]],'a','b','c'}|['blurf']]]]>
+	      in  case <apply 'traverse-dcd'/3
+			    ({'cont',_l0}, 'log', 'funny')> of
+		    <{'cont',[{'log_header','dcd_log',[48|[46|[48]]],'a','b','c'}|['blurf']],'log','funny'}> when 'true' ->
+			let <_l1> =
+			    <[{'log_header','dcd_log',[49|[46|[48]]]}]>
+			in  case <apply 'traverse-dcd'/3
+				      ({'cont',_l1}, 'log', 'funny')> of
+			      <{'cont',_l1,'log','funny'}> when 'true' ->
+				  let <_l2> =
+				      <[{'a','tuple'}]>
+				  in  case <apply 'traverse-dcd'/3
+						({'cont',_l2}, 'log', 'funny')> of
+					<{'cont',_l2,'log','funny'}> when 'true' ->
+					    'ok'
+					( <_2> when 'true' ->
+					      primop 'match_fail'
+						  ({'badmatch',{_2}})
+					  -| ['compiler_generated'] )
+				      end
+			      ( <_3> when 'true' ->
+				    primop 'match_fail'
+					({'badmatch',{_3}})
+				-| ['compiler_generated'] )
+			    end
+		    ( <_4> when 'true' ->
+			  primop 'match_fail'
+			      ({'badmatch',{_4}})
+		      -| ['compiler_generated'] )
+		  end
+	  ( <_5> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_5})
+		  -| [{'function_name',{'traverse_dcd',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'traverse-dcd'/3 =
+    %% Line 1066
+    fun (_2,_1,_0) ->
+	case <_2,_1,_0> of
+	  <{_cont,[_logh|_rest]},_log,_fun>
+	      when try
+		    let <_11> =
+			let <_6> =
+			    case call 'erlang':'is_tuple'
+				     (_logh) of
+			      <'true'> when 'true' ->
+				  case let <_3> =
+					   call 'erlang':'tuple_size'
+					       (_logh)
+				       in  call 'erlang':'=:='
+					       (_3, 6) of
+				    <'true'> when 'true' ->
+					case let <_4> =
+						 call 'erlang':'element'
+						     (1, _logh)
+					     in  call 'erlang':'=:='
+						     (_4, 'log_header') of
+					  <'true'> when 'true' ->
+					      let <_5> =
+						  call 'erlang':'element'
+						      (2, _logh)
+					      in  call 'erlang':'=='
+						      (_5, 'dcd_log')
+					  <'false'> when 'true' ->
+					      'false'
+					  ( <_omega> when 'true' ->
+						_omega
+					    -| ['compiler_generated'] )
+					end
+				    <'false'> when 'true' ->
+					'false'
+				    ( <_omega> when 'true' ->
+					  _omega
+				      -| ['compiler_generated'] )
+				  end
+			      <'false'> when 'true' ->
+				  'false'
+			      ( <_omega> when 'true' ->
+				    _omega
+				-| ['compiler_generated'] )
+			    end
+			in  ( call 'erlang':'=:='
+				  (_6, 'true')
+			      -| ['compiler_generated'] )
+		    in  let <_12> =
+			    let <_10> =
+				case call 'erlang':'is_tuple'
+					 (_logh) of
+				  <'true'> when 'true' ->
+				      case let <_7> =
+					       call 'erlang':'tuple_size'
+						   (_logh)
+					   in  call 'erlang':'=:='
+						   (_7, 6) of
+					<'true'> when 'true' ->
+					    case let <_8> =
+						     call 'erlang':'element'
+							 (1, _logh)
+						 in  call 'erlang':'=:='
+							 (_8, 'log_header') of
+					      <'true'> when 'true' ->
+						  let <_9> =
+						      call 'erlang':'element'
+							  (3, _logh)
+						  in  call 'erlang':'>='
+							  (_9, [49|[46|[48]]])
+					      <'false'> when 'true' ->
+						  'false'
+					      ( <_omega> when 'true' ->
+						    _omega
+						-| ['compiler_generated'] )
+					    end
+					<'false'> when 'true' ->
+					    'false'
+					( <_omega> when 'true' ->
+					      _omega
+					  -| ['compiler_generated'] )
+				      end
+				  <'false'> when 'true' ->
+				      'false'
+				  ( <_omega> when 'true' ->
+					_omega
+				    -| ['compiler_generated'] )
+				end
+			    in  ( call 'erlang':'=:='
+				      (_10, 'true')
+				  -| ['compiler_generated'] )
+			in  call 'erlang':'and'
+				(_11, _12)
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      apply 'traverse-dcd'/3
+		  ({_cont,_rest}, _log, _fun)
+	  <{_cont,_recs},_log,_fun> when 'true' ->
+	      {_cont,_recs,_log,_fun}
+	  ( <_15,_14,_13> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_15,_14,_13})
+		  -| [{'function_name',{'traverse-dcd',3}}] )
+	    -| ['compiler_generated'] )
+	end
+'check_qlc_hrl'/1 =
+    %% Line 1078
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      let <_st> =
+		  <{'r1','false','dum'}>
+	      in  do  call 'erlang':'put'
+			  ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['foo']]|[['cqlc'|[['quote'|['qlc']]|[['quote'|['q']]|[['quote'|[[{'lc',1,2,3}]]]|['st']]]]]]]]})
+		      let <_val> =
+			  <apply 'cqlc'/4
+			       ('qlc', 'q', [{'lc',1,2,3}], _st)>
+		      in  case <_val> of
+			    <'foo'> when 'true' ->
+				_val
+			    ( <_2> when 'true' ->
+				  primop 'match_fail'
+				      ({'badmatch',{_2}})
+			      -| ['compiler_generated'] )
+			  end
+	  ( <_5> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_5})
+		  -| [{'function_name',{'check_qlc_hrl',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'cqlc'/4 =
+    %% Line 1094
+    fun (_m,_f,_as,_st) ->
+	let <_arity> =
+	    <call 'erlang':'length'
+		 (_as)>
+	in  case _as of
+	      <[{'lc',_0,_1,_2}|_3]>
+		  when try
+			let <_11> =
+			    call 'erlang':'=:='
+				(_m, 'qlc')
+			in  let <_12> =
+				call 'erlang':'=:='
+				    (_f, 'q')
+			    in  let <_13> =
+				    call 'erlang':'<'
+					(_arity, 3)
+				in  let <_14> =
+					let <_10> =
+					    let <_8> =
+						case let <_4> =
+							 call 'erlang':'element'
+							     (1, _st)
+						     in  call 'erlang':'=:='
+							     (_4, 'r1') of
+						  <'true'> when 'true' ->
+						      'true'
+						  <'false'> when 'true' ->
+						      'fail'
+						  ( <_omega> when 'true' ->
+							_omega
+						    -| ['compiler_generated'] )
+						end
+					    in  let <_9> =
+						    let <_6> =
+							let <_5> =
+							    call 'erlang':'tuple_size'
+								(_st)
+							in  call 'erlang':'=:='
+								(_5, 3)
+						    in  let <_7> =
+							    call 'erlang':'element'
+								(2, _st)
+							in  call 'erlang':'and'
+								(_6, _7)
+						in  call 'erlang':'and'
+							(_8, _9)
+					in  call 'erlang':'not'
+						(_10)
+				    in  let <_15> =
+					    call 'erlang':'and'
+						(_11, _12)
+					in  let <_16> =
+						call 'erlang':'and'
+						    (_15, _13)
+					    in  call 'erlang':'and'
+						    (_16, _14)
+		    of <Try> ->
+			Try
+		    catch <T,R> ->
+			'false' ->
+		  'foo'
+	      <_17> when 'true' ->
+		  _st
+	      ( <_omega> when 'true' ->
+		    primop 'match_fail'
+			({'case_clause',_omega})
+		-| ['compiler_generated'] )
+	    end
+'andalso_semi'/1 =
+    %% Line 1106
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['ok']]|[['andalso-semi-foo'|[0]]]]]})
+		  let <_val> =
+		      <apply 'andalso-semi-foo'/1
+			   (0)>
+		  in  case <_val> of
+			<'ok'> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_8> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_8})
+		  -| [{'function_name',{'andalso_semi',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'andalso-semi-foo'/1 =
+    %% Line 1117
+    fun (_0) ->
+	case <_0> of
+	  <_bar>
+	      when try
+		    let <_3> =
+			let <_1> =
+			    case call 'erlang':'is_integer'
+				     (_bar) of
+			      <'true'> when 'true' ->
+				  call 'erlang':'=:='
+				      (_bar, 0)
+			      <'false'> when 'true' ->
+				  'false'
+			      ( <_omega> when 'true' ->
+				    _omega
+				-| ['compiler_generated'] )
+			    end
+			in  let <_2> =
+				call 'erlang':'=:='
+				    (_bar, 1)
+			    in  call 'erlang':'or'
+				    (_1, _2)
+		    in  _3
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  ( <_4> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_4})
+		  -| [{'function_name',{'andalso-semi-foo',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'andalso-semi-bar'/1 =
+    %% Line 1121
+    fun (_0) ->
+	case <_0> of
+	  <_bar>
+	      when try
+		    let <_4> =
+			let <_2> =
+			    case call 'erlang':'is_list'
+				     (_bar) of
+			      <'true'> when 'true' ->
+				  let <_1> =
+				      call 'erlang':'length'
+					  (_bar)
+				  in  call 'erlang':'=:='
+					  (_1, 3)
+			      <'false'> when 'true' ->
+				  'false'
+			      ( <_omega> when 'true' ->
+				    _omega
+				-| ['compiler_generated'] )
+			    end
+			in  let <_3> =
+				call 'erlang':'=:='
+				    (_bar, 1)
+			    in  call 'erlang':'or'
+				    (_2, _3)
+		    in  _4
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  ( <_5> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_5})
+		  -| [{'function_name',{'andalso-semi-bar',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'t_tuple_size'/1 =
+    %% Line 1125
+    fun (_0) ->
+	case <_0> of
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[10|[['do-tuple-size'|[{1,2,3,4}]]]]]})
+		  let <_val> =
+		      <apply 'do-tuple-size'/1
+			   ({1,2,3,4})>
+		  in  case <_val> of
+			<10> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_7> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_7})
+		  -| [{'function_name',{'t_tuple_size',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'do-tuple-size'/1 =
+    %% Line 1139
+    fun (_0) ->
+	case <_0> of
+	  <_t>
+	      when try
+		    let <_2> =
+			let <_1> =
+			    call 'erlang':'tuple_size'
+				(_t)
+			in  call 'erlang':'=:='
+				(_1, 4)
+		    in  _2
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      case <_t> of
+		<{_a,_b,_c,_d}> when 'true' ->
+		    let <_lfe0> =
+			<_a>
+		    in  let <_lfe1> =
+			    <_b>
+			in  let <_lfe2> =
+				<_c>
+			    in  let <_lfe3> =
+				    <_d>
+				in  let <_4> =
+					let <_3> =
+					    call 'erlang':'+'
+						(_lfe0, _lfe1)
+					in  call 'erlang':'+'
+						(_3, _lfe2)
+				    in  call 'erlang':'+'
+					    (_4, _lfe3)
+		( <_5> when 'true' ->
+		      primop 'match_fail'
+			  ({'badmatch',{_5}})
+		  -| ['compiler_generated'] )
+	      end
+	  ( <_6> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_6})
+		  -| [{'function_name',{'do-tuple-size',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'ludicrous-tuple-size'/1 =
+    %% Line 1144
+    fun (_0) ->
+	case <_0> of
+	  <_t>
+	      when try
+		    let <_2> =
+			let <_1> =
+			    call 'erlang':'tuple_size'
+				(_t)
+			in  call 'erlang':'=:='
+				(_1, 40652400101488115101757819767848575661943)
+		    in  _2
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_t>
+	      when try
+		    let <_4> =
+			let <_3> =
+			    call 'erlang':'tuple_size'
+				(_t)
+			in  call 'erlang':'=:='
+				(_3, 18446744073709551616)
+		    in  _4
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_t>
+	      when try
+		    let <_8> =
+			let <_6> =
+			    call 'erlang':'tuple_size'
+				(_t)
+			in  let <_7> =
+				let <_5> =
+				    call 'erlang':'bsl'
+					(1, 64)
+				in  call 'erlang':'-'
+					(_5, 1)
+			    in  call 'erlang':'=:='
+				    (_6, _7)
+		    in  _8
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_t>
+	      when try
+		    let <_10> =
+			let <_9> =
+			    call 'erlang':'tuple_size'
+				(_t)
+			in  call 'erlang':'=:='
+				(_9, 18446744073709551615)
+		    in  _10
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_11> when 'true' ->
+	      'error'
+	  ( <_12> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_12})
+		  -| [{'function_name',{'ludicrous-tuple-size',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'mask-error'/1 =
+    %% Line 1152
+    fun (_0) ->
+	case <_0> of
+	  <{'EXIT',{_err,_1}}> when 'true' ->
+	      _err
+	  <_else> when 'true' ->
+	      _else
+	  ( <_2> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_2})
+		  -| [{'function_name',{'mask-error',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'binary_part'/1 =
+    %% Line 1156
+    fun (_0) ->
+	case <_0> of
+	  <'doc'> when 'true' ->
+	      [84|[101|[115|[116|[115|[32|[116|[104|[101|[32|[98|[105|[110|[97|[114|[121|[95|[112|[97|[114|[116|[47|[50|[44|[51|[32|[103|[117|[97|[114|[100|[32|[40|[71|[67|[41|[32|[98|[105|[102|[39|[115]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
+	  <_config>
+	      when try
+		    let <_1> =
+			call 'erlang':'is_list'
+			    (_config)
+		    in  _1
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      do  call 'erlang':'put'
+		      ('test_server_loc', {'lfe_guard_SUITE',['test-pat',1,['bp-test',#{#<1>(8,1,'integer',['unsigned'|['big']]),
+										      #<2>(8,1,'integer',['unsigned'|['big']]),
+										      #<3>(8,1,'integer',['unsigned'|['big']])}#]]})
+		  let <_val> =
+		      <apply 'bp-test'/1
+			   (#{#<1>(8,1,'integer',['unsigned'|['big']]),
+			      #<2>(8,1,'integer',['unsigned'|['big']]),
+			      #<3>(8,1,'integer',['unsigned'|['big']])}#)>
+		  in  case <_val> of
+			<1> when 'true' ->
+			    _val
+			( <_2> when 'true' ->
+			      primop 'match_fail'
+				  ({'badmatch',{_2}})
+			  -| ['compiler_generated'] )
+		      end
+	  ( <_53> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_53})
+		  -| [{'function_name',{'binary_part',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'bp-test'/1 =
+    %% Line 1225
+    fun (_0) ->
+	case <_0> of
+	  <_b>
+	      when try
+		    let <_2> =
+			let <_1> =
+			    call 'erlang':'length'
+				(_b)
+			in  call 'erlang':'=:='
+				(_1, 137)
+		    in  _2
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      1
+	  <_b>
+	      when try
+		    let <_4> =
+			let <_3> =
+			    call 'erlang':'binary_part'
+				(_b, {1,1})
+			in  call 'erlang':'=:='
+				(_3, #{#<2>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _4
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      1
+	  <_b>
+	      when try
+		    let <_6> =
+			let <_5> =
+			    call 'erlang':'binary_part'
+				(_b, 1, 1)
+			in  call 'erlang':'=:='
+				(_5, #{#<1>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _6
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      2
+	  <_b>
+	      when try
+		    let <_8> =
+			let <_7> =
+			    call 'erlang':'binary_part'
+				(_b, {1,2})
+			in  call 'erlang':'=:='
+				(_7, #{#<3>(8,1,'integer',['unsigned'|['big']]),
+				       #<3>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _8
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      3
+	  <_9> when 'true' ->
+	      'error'
+	  ( <_10> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_10})
+		  -| [{'function_name',{'bp-test',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'bp-test'/2 =
+    %% Line 1232
+    fun (_1,_0) ->
+	case <_1,_0> of
+	  <_b,_a>
+	      when try
+		    let <_3> =
+			let <_2> =
+			    call 'erlang':'length'
+				(_b)
+			in  call 'erlang':'=:='
+				(_2, _a)
+		    in  _3
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      1
+	  <_b,_a>
+	      when try
+		    let <_5> =
+			let <_4> =
+			    call 'erlang':'binary_part'
+				(_b, {_a,1})
+			in  call 'erlang':'=:='
+				(_4, #{#<2>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _5
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      1
+	  <_b,_a>
+	      when try
+		    let <_7> =
+			let <_6> =
+			    call 'erlang':'binary_part'
+				(_b, _a, 1)
+			in  call 'erlang':'=:='
+				(_6, #{#<1>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _7
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      2
+	  <_b,_a>
+	      when try
+		    let <_9> =
+			let <_8> =
+			    call 'erlang':'binary_part'
+				(_b, {_a,2})
+			in  call 'erlang':'=:='
+				(_8, #{#<3>(8,1,'integer',['unsigned'|['big']]),
+				       #<3>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _9
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      3
+	  <_10,_11> when 'true' ->
+	      'error'
+	  ( <_13,_12> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_13,_12})
+		  -| [{'function_name',{'bp-test',2}}] )
+	    -| ['compiler_generated'] )
+	end
+'bp-test-x'/2 =
+    %% Line 1239
+    fun (_1,_0) ->
+	case <_1,_0> of
+	  <_b,_a>
+	      when try
+		    let <_3> =
+			let <_2> =
+			    call 'erlang':'length'
+				(_b)
+			in  call 'erlang':'=:='
+				(_2, _a)
+		    in  _3
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      1
+	  <_b,_a>
+	      when try
+		    let <_5> =
+			let <_4> =
+			    call 'erlang':'binary_part'
+				(_b, _a)
+			in  call 'erlang':'=:='
+				(_4, #{#<2>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _5
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      1
+	  <_b,_a>
+	      when try
+		    let <_7> =
+			let <_6> =
+			    call 'erlang':'binary_part'
+				(_b, _a)
+			in  call 'erlang':'=:='
+				(_6, #{#<1>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _7
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      2
+	  <_b,_a>
+	      when try
+		    let <_9> =
+			let <_8> =
+			    call 'erlang':'binary_part'
+				(_b, _a)
+			in  call 'erlang':'=:='
+				(_8, #{#<3>(8,1,'integer',['unsigned'|['big']]),
+				       #<3>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _9
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      3
+	  <_10,_11> when 'true' ->
+	      'error'
+	  ( <_13,_12> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_13,_12})
+		  -| [{'function_name',{'bp-test-x',2}}] )
+	    -| ['compiler_generated'] )
+	end
+'bp-test-y'/2 =
+    %% Line 1246
+    fun (_1,_0) ->
+	case <_1,_0> of
+	  <_b,_a>
+	      when try
+		    let <_3> =
+			let <_2> =
+			    call 'erlang':'length'
+				(_b)
+			in  call 'erlang':'=:='
+				(_2, _a)
+		    in  _3
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      1
+	  <_b,_a>
+	      when try
+		    let <_5> =
+			let <_4> =
+			    call 'erlang':'binary_part'
+				(_b, {1,_a})
+			in  call 'erlang':'=:='
+				(_4, #{#<2>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _5
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      1
+	  <_b,_a>
+	      when try
+		    let <_7> =
+			let <_6> =
+			    call 'erlang':'binary_part'
+				(_b, 1, _a)
+			in  call 'erlang':'=:='
+				(_6, #{#<1>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _7
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      2
+	  <_b,_a>
+	      when try
+		    let <_9> =
+			let <_8> =
+			    call 'erlang':'binary_part'
+				(_b, {1,_a})
+			in  call 'erlang':'=:='
+				(_8, #{#<3>(8,1,'integer',['unsigned'|['big']]),
+				       #<3>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _9
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      3
+	  <_10,_11> when 'true' ->
+	      'error'
+	  ( <_13,_12> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_13,_12})
+		  -| [{'function_name',{'bp-test-y',2}}] )
+	    -| ['compiler_generated'] )
+	end
+'bp-test'/3 =
+    %% Line 1253
+    fun (_2,_1,_0) ->
+	case <_2,_1,_0> of
+	  <_b,_a,_3>
+	      when try
+		    let <_5> =
+			let <_4> =
+			    call 'erlang':'length'
+				(_b)
+			in  call 'erlang':'=:='
+				(_4, _a)
+		    in  _5
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      1
+	  <_b,_a,_c>
+	      when try
+		    let <_7> =
+			let <_6> =
+			    call 'erlang':'binary_part'
+				(_b, {_a,_c})
+			in  call 'erlang':'=:='
+				(_6, #{#<2>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _7
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      1
+	  <_b,_a,_c>
+	      when try
+		    let <_9> =
+			let <_8> =
+			    call 'erlang':'binary_part'
+				(_b, _a, _c)
+			in  call 'erlang':'=:='
+				(_8, #{#<1>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _9
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      2
+	  <_b,_a,_c>
+	      when try
+		    let <_11> =
+			let <_10> =
+			    call 'erlang':'binary_part'
+				(_b, {_a,_c})
+			in  call 'erlang':'=:='
+				(_10, #{#<3>(8,1,'integer',['unsigned'|['big']]),
+					#<3>(8,1,'integer',['unsigned'|['big']])}#)
+		    in  _11
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      3
+	  <_12,_13,_14> when 'true' ->
+	      'error'
+	  ( <_17,_16,_15> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_17,_16,_15})
+		  -| [{'function_name',{'bp-test',3}}] )
+	    -| ['compiler_generated'] )
+	end
+'id'/1 =
+    %% Line 1262
+    fun (_i) ->
+	_i
+'check'/2 =
+    %% Line 1264
+    fun (_f,_result) ->
+	case apply _f
+		 () of
+	  <_r>
+	      when try
+		    let <_0> =
+			call 'erlang':'=:='
+			    (_r, _result)
+		    in  _0
+		of <Try> ->
+		    Try
+		catch <T,R> ->
+		    'false' ->
+	      'ok'
+	  <_other> when 'true' ->
+	      do  call 'lfe_io':'format'
+		      ([69|[120|[112|[101|[99|[116|[101|[100|[58|[32|[126|[112|[10]]]]]]]]]]]]], [_result])
+		  do  call 'lfe_io':'format'
+			  ([32|[32|[32|[32|[32|[71|[111|[116|[58|[32|[126|[112|[10]]]]]]]]]]]]], [_other])
+		      call 'test_server':'fail'
+			  ()
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'fc'/1 =
+    %% Line 1272
+    fun (_0) ->
+	case <_0> of
+	  <{'EXIT',{'function_clause'}}> when 'true' ->
+	      'ok'
+	  <{'EXIT',{{'case_clause',_1},_2}}> when 'true' ->
+	      'ok'
+	  ( <_3> when 'true' ->
+		( primop 'match_fail'
+		      ({'function_clause',_3})
+		  -| [{'function_name',{'fc',1}}] )
+	    -| ['compiler_generated'] )
+	end
+'$handle_undefined_function'/2 =
+    %% Line 29
+    fun (_f,_as) ->
+	case let <_0> =
+		 call 'lfe_env':'new'
+		     ()
+	     in  apply 'LFE-EXPAND-EXPORTED-MACRO'/3
+		     (_f, _as, _0) of
+	  <{'yes',_exp}> when 'true' ->
+	      call 'lfe_eval':'expr'
+		  (_exp)
+	  <'no'> when 'true' ->
+	      let <_a,_b> =
+		  <_f,_as>
+	      in  call 'error_handler':'raise_undef_exception'
+		      ('lfe_guard_SUITE', _a, _b)
+	  ( <_omega> when 'true' ->
+		primop 'match_fail'
+		    ({'case_clause',_omega})
+	    -| ['compiler_generated'] )
+	end
+'LFE-EXPAND-EXPORTED-MACRO'/3 =
+    %% Line 29
+    fun (_2,_1,_0) ->
+	'no'
+'module_info'/0 =
+    fun () ->
+	call 'erlang':'get_module_info'
+	    ('lfe_guard_SUITE')
+'module_info'/1 =
+    fun (_x) ->
+	call 'erlang':'get_module_info'
+	    ('lfe_guard_SUITE', _x)
+end