Add t.core

t.core

@@ -0,0 +1,113 @@
+module 't' ['id'/1,
+	    'module_info'/0,
+	    'module_info'/1,
+	    'zip'/2]
+    attributes [%% Line 1
+		'file' =
+		    %% Line 1
+		    [{[116|[46|[101|[114|[108]]]]],1}],
+		%% Line 2
+		'compile' =
+		    %% Line 2
+		    ['export_all'|['nowarn_export_all']]]
+'zip'/2 =
+    %% Line 5
+    ( fun (_0,_1) ->
+	  ( case ( <_0,_1>
+		   -| [{'function',{'zip',2}}] ) of
+	      <L1,L2> when 'true' ->
+		  %% Line 6
+		  ( letrec
+			'zlc$^0'/2 =
+			    fun (_10,_9) ->
+				case <_10,_9> of
+				  <[X|_3],[Y|_5]> when 'true' ->
+				      let <_6> =
+					  call 'lists':'sum'
+					      (X)
+				      in      case call 'erlang':'>'
+							 (_6, 0) of
+						  <'true'> when 'true' ->
+						      let <_11> =
+							  call 'erlang':'+'
+							      (X, Y)
+						      in let <_12> =
+   						           apply 'zlc$^0'/2
+						             (_3, _5)
+					                      in  [_11|_12]
+						  ( <'false'> when 'true' ->
+							apply 'zlc$^0'/2(3, 5)
+						    -| ['compiler_generated'] )
+						  ( <_12> when 'true' ->
+							primop 'match_fail'
+							    ({'bad_filter',_12})
+						    -| ['compiler_generated'] )
+						end
+				  <[],[]> when 'true' ->
+				      []
+				  ( <_8,_7> when 'true' ->
+					call 'erlang':'error'
+					    ({'bad_generators',{_8,_7}})
+				    -| ['compiler_generated'] )
+				end
+		    in  apply 'zlc$^0'/2
+			    (L1, L2)
+		    -| ['zip_list_comprehension'] )
+	      ( <_14,_13> when 'true' ->
+		    ( primop 'match_fail'
+			  (( {'function_clause',_14,_13}
+			     -| [{'function',{'zip',2}}] ))
+		      -| [{'function',{'zip',2}}] )
+		-| ['compiler_generated'] )
+	    end
+	    -| [{'function',{'zip',2}}] )
+      -| [{'function',{'zip',2}}] )
+'id'/1 =
+    %% Line 5331
+    ( fun (_0) ->
+	  ( case ( _0
+		   -| [{'function',{'id',1}}] ) of
+	      <I> when 'true' ->
+		  I
+	      ( <_1> when 'true' ->
+		    ( primop 'match_fail'
+			  (( {'function_clause',_1}
+			     -| [{'function',{'id',1}}] ))
+		      -| [{'function',{'id',1}}] )
+		-| ['compiler_generated'] )
+	    end
+	    -| [{'function',{'id',1}}] )
+      -| [{'function',{'id',1}}] )
+'module_info'/0 =
+    ( fun () ->
+	  ( case ( <>
+		   -| [{'function',{'module_info',0}}] ) of
+	      <> when 'true' ->
+		  call 'erlang':'get_module_info'
+		      ('t')
+	      ( <> when 'true' ->
+		    ( primop 'match_fail'
+			  (( {'function_clause'}
+			     -| [{'function',{'module_info',0}}] ))
+		      -| [{'function',{'module_info',0}}] )
+		-| ['compiler_generated'] )
+	    end
+	    -| [{'function',{'module_info',0}}] )
+      -| [{'function',{'module_info',0}}] )
+'module_info'/1 =
+    ( fun (_0) ->
+	  ( case ( _0
+		   -| [{'function',{'module_info',1}}] ) of
+	      <X> when 'true' ->
+		  call 'erlang':'get_module_info'
+		      ('t', X)
+	      ( <_1> when 'true' ->
+		    ( primop 'match_fail'
+			  (( {'function_clause',_1}
+			     -| [{'function',{'module_info',1}}] ))
+		      -| [{'function',{'module_info',1}}] )
+		-| ['compiler_generated'] )
+	    end
+	    -| [{'function',{'module_info',1}}] )
+      -| [{'function',{'module_info',1}}] )
+end