1module 'lfe_guard_SUITE' ['$handle_undefined_function'/2, 2 'LFE-EXPAND-EXPORTED-MACRO'/3, 3 'all'/0, 4 'and_guard'/1, 5 'andalso_semi'/1, 6 'basic_andalso_orelse'/1, 7 'basic_not'/1, 8 'binary_part'/1, 9 'build_in_guard'/1, 10 'check_qlc_hrl'/1, 11 'comma'/1, 12 'complex_not'/1, 13 'complex_or_guards'/1, 14 'complex_semicolon'/1, 15 'const_cond'/1, 16 'end_per_group'/2, 17 'end_per_suite'/1, 18 'gbif'/1, 19 'groups'/0, 20 'init_per_group'/2, 21 'init_per_suite'/1, 22 'is_function_2'/1, 23 'literal_type_tests'/1, 24 'misc'/1, 25 'module_info'/0, 26 'module_info'/1, 27 'more_or_guards'/1, 28 'more_xor_guards'/1, 29 'nested_nots'/1, 30 'old_guard_tests'/1, 31 'or_guard'/1, 32 'rel_ops'/1, 33 'semicolon'/1, 34 'suite'/0, 35 't_is_boolean'/1, 36 't_tuple_size'/1, 37 'traverse_dcd'/1, 38 'tricky'/1, 39 'xor_guard'/1] 40 attributes [] 41'all'/0 = 42 %% Line 47 43 fun () -> 44 ['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']]]]]]]]]]]]]]]]]]]]]]]]]]]] 45'suite'/0 = 46 %% Line 58 47 fun () -> 48 [] 49'groups'/0 = 50 %% Line 60 51 fun () -> 52 [] 53'init_per_suite'/1 = 54 %% Line 62 55 fun (_config) -> 56 _config 57'end_per_suite'/1 = 58 %% Line 64 59 fun (_config) -> 60 'ok' 61'init_per_group'/2 = 62 %% Line 66 63 fun (_name,_config) -> 64 _config 65'end_per_group'/2 = 66 %% Line 68 67 fun (_name,_config) -> 68 _config 69'misc'/1 = 70 %% Line 70 71 fun (_0) -> 72 case <_0> of 73 <_config> 74 when try 75 let <_1> = 76 call 'erlang':'is_list' 77 (_config) 78 in _1 79 of <Try> -> 80 Try 81 catch <T,R> -> 82 'false' -> 83 do call 'erlang':'put' 84 ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[42|[['case'|[['id'|[42]]|[['x'|[['when'|[['-'|['x']]]]|[['quote'|['ok']]]]]|[['x'|['x']]]]]]]]]}) 85 let <_val> = 86 <case apply 'id'/1 87 (42) of 88 <_x> 89 when try 90 let <_3> = 91 let <_2> = 92 call 'erlang':'-' 93 (_x) 94 in ( call 'erlang':'=:=' 95 (_2, 'true') 96 -| ['compiler_generated'] ) 97 in _3 98 of <Try> -> 99 Try 100 catch <T,R> -> 101 'false' -> 102 'ok' 103 <_x> when 'true' -> 104 _x 105 ( <_omega> when 'true' -> 106 primop 'match_fail' 107 ({'case_clause',_omega}) 108 -| ['compiler_generated'] ) 109 end> 110 in case <_val> of 111 <42> when 'true' -> 112 _val 113 ( <_4> when 'true' -> 114 primop 'match_fail' 115 ({'badmatch',{_4}}) 116 -| ['compiler_generated'] ) 117 end 118 ( <_17> when 'true' -> 119 ( primop 'match_fail' 120 ({'function_clause',_17}) 121 -| [{'function_name',{'misc',1}}] ) 122 -| ['compiler_generated'] ) 123 end 124'misc-1'/1 = 125 %% Line 93 126 fun (_0) -> 127 case <_0> of 128 <[{_w},{_x},{_y},{_z}]> when 'true' -> 129 case 1 of 130 <_1> 131 when try 132 let <_4> = 133 let <_3> = 134 case call 'erlang':'>' 135 (_x, _y) of 136 <'true'> when 'true' -> 137 let <_2> = 138 call 'erlang':'abs' 139 (_z) 140 in call 'erlang':'=:=' 141 (_2, 2) 142 <'false'> when 'true' -> 143 'false' 144 ( <_omega> when 'true' -> 145 _omega 146 -| ['compiler_generated'] ) 147 end 148 in ( call 'erlang':'=:=' 149 (_3, 'true') 150 -| ['compiler_generated'] ) 151 in _4 152 of <Try> -> 153 Try 154 catch <T,R> -> 155 'false' -> 156 apply 'id'/1 157 (_w) 158 <_5> 159 when try 160 'true' 161 of <Try> -> 162 Try 163 catch <T,R> -> 164 'false' -> 165 'none' 166 ( <_omega> when 'true' -> 167 primop 'match_fail' 168 ({'case_clause',_omega}) 169 -| ['compiler_generated'] ) 170 end 171 ( <_6> when 'true' -> 172 ( primop 'match_fail' 173 ({'function_clause',_6}) 174 -| [{'function_name',{'misc-1',1}}] ) 175 -| ['compiler_generated'] ) 176 end 177'get-data'/3 = 178 %% Line 99 179 fun (_2,_1,_0) -> 180 case <_2,_1,_0> of 181 <{'o',_active,_raw},_bytes,_buffer> 182 when try 183 let <_5> = 184 let <_3> = 185 call 'erlang':'=:=' 186 (_raw, 'raw') 187 in let <_4> = 188 call 'erlang':'=:=' 189 (_raw, 0) 190 in call 'erlang':'or' 191 (_3, _4) 192 in _5 193 of <Try> -> 194 Try 195 catch <T,R> -> 196 'false' -> 197 case 1 of 198 <_6> 199 when try 200 let <_8> = 201 let <_7> = 202 case call 'erlang':'=/=' 203 (_active, 'false') of 204 <'true'> when 'true' -> 205 'true' 206 <'false'> when 'true' -> 207 call 'erlang':'=:=' 208 (_bytes, 0) 209 ( <_omega> when 'true' -> 210 _omega 211 -| ['compiler_generated'] ) 212 end 213 in ( call 'erlang':'=:=' 214 (_7, 'true') 215 -| ['compiler_generated'] ) 216 in _8 217 of <Try> -> 218 Try 219 catch <T,R> -> 220 'false' -> 221 {'ok',_buffer,#{}#} 222 <_9> 223 when try 224 'true' 225 of <Try> -> 226 Try 227 catch <T,R> -> 228 'false' -> 229 'error' 230 ( <_omega> when 'true' -> 231 primop 'match_fail' 232 ({'case_clause',_omega}) 233 -| ['compiler_generated'] ) 234 end 235 ( <_12,_11,_10> when 'true' -> 236 ( primop 'match_fail' 237 ({'function_clause',_12,_11,_10}) 238 -| [{'function_name',{'get-data',3}}] ) 239 -| ['compiler_generated'] ) 240 end 241'const_cond'/1 = 242 %% Line 104 243 fun (_0) -> 244 case <_0> of 245 <_config> 246 when try 247 let <_1> = 248 call 'erlang':'is_list' 249 (_config) 250 in _1 251 of <Try> -> 252 Try 253 catch <T,R> -> 254 'false' -> 255 do call 'erlang':'put' 256 ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['ok']]|[['const-cond'|[{}|[0]]]]]]}) 257 let <_val> = 258 <apply 'const-cond'/2 259 ({}, 0)> 260 in case <_val> of 261 <'ok'> when 'true' -> 262 _val 263 ( <_2> when 'true' -> 264 primop 'match_fail' 265 ({'badmatch',{_2}}) 266 -| ['compiler_generated'] ) 267 end 268 ( <_7> when 'true' -> 269 ( primop 'match_fail' 270 ({'function_clause',_7}) 271 -| [{'function_name',{'const_cond',1}}] ) 272 -| ['compiler_generated'] ) 273 end 274'const-cond'/2 = 275 %% Line 113 276 fun (_t,_sz) -> 277 case _t of 278 <_0> 279 when try 280 'false' 281 of <Try> -> 282 Try 283 catch <T,R> -> 284 'false' -> 285 'never' 286 <_1> 287 when try 288 let <_3> = 289 call 'erlang':'is_tuple' 290 (_t) 291 in let <_4> = 292 call 'erlang':'==' 293 ('eq', 'eq') 294 in let <_5> = 295 let <_2> = 296 call 'erlang':'tuple_size' 297 (_t) 298 in call 'erlang':'==' 299 (_2, _sz) 300 in let <_6> = 301 call 'erlang':'and' 302 (_3, _4) 303 in call 'erlang':'and' 304 (_6, _5) 305 of <Try> -> 306 Try 307 catch <T,R> -> 308 'false' -> 309 'ok' 310 <_7> 311 when try 312 let <_9> = 313 call 'erlang':'is_tuple' 314 (_t) 315 in let <_10> = 316 call 'erlang':'==' 317 ('eq', 'leq') 318 in let <_11> = 319 let <_8> = 320 call 'erlang':'tuple_size' 321 (_t) 322 in call 'erlang':'==' 323 (_8, _sz) 324 in let <_12> = 325 call 'erlang':'and' 326 (_9, _10) 327 in call 'erlang':'and' 328 (_12, _11) 329 of <Try> -> 330 Try 331 catch <T,R> -> 332 'false' -> 333 'ok' 334 <_13> when 'true' -> 335 'error' 336 ( <_omega> when 'true' -> 337 primop 'match_fail' 338 ({'case_clause',_omega}) 339 -| ['compiler_generated'] ) 340 end 341'basic_not'/1 = 342 %% Line 120 343 fun (_0) -> 344 case <_0> of 345 <_config> 346 when try 347 let <_1> = 348 call 'erlang':'is_list' 349 (_config) 350 in _1 351 of <Try> -> 352 Try 353 catch <T,R> -> 354 'false' -> 355 let <_true> = 356 <apply 'id'/1 357 ('true')> 358 in let <_false> = 359 <apply 'id'/1 360 ('false')> 361 in let <_glurf> = 362 <apply 'id'/1 363 ('glurf')> 364 in let <_a> = 365 <apply 'id'/1 366 (5)> 367 in let <_b> = 368 <apply 'id'/1 369 (3.75000000000000000000e+01)> 370 in let <_c> = 371 <apply 'id'/1 372 (-1)> 373 in let <_d> = 374 <apply 'id'/1 375 (5)> 376 in let <_atuple> = 377 <{_false,_true,_glurf}> 378 in do call 'erlang':'put' 379 ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['not'|[['quote'|['false']]]]|[['quote'|['ok']]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]|[['quote'|['ok']]]]]}) 380 let <_5> = 381 fun () -> 382 case 1 of 383 <_2> 384 when try 385 let <_3> = 386 call 'erlang':'not' 387 ('false') 388 in _3 389 of <Try> -> 390 Try 391 catch <T,R> -> 392 'false' -> 393 'ok' 394 <_4> 395 when try 396 'true' 397 of <Try> -> 398 Try 399 catch <T,R> -> 400 'false' -> 401 'error' 402 ( <_omega> when 'true' -> 403 primop 'match_fail' 404 ({'case_clause',_omega}) 405 -| ['compiler_generated'] ) 406 end 407 in apply 'check'/2 408 (_5, 'ok') 409 ( <_128> when 'true' -> 410 ( primop 'match_fail' 411 ({'function_clause',_128}) 412 -| [{'function_name',{'basic_not',1}}] ) 413 -| ['compiler_generated'] ) 414 end 415'complex_not'/1 = 416 %% Line 164 417 fun (_0) -> 418 case <_0> of 419 <_config> 420 when try 421 let <_1> = 422 call 'erlang':'is_list' 423 (_config) 424 in _1 425 of <Try> -> 426 Try 427 catch <T,R> -> 428 'false' -> 429 let <_atuple> = 430 <apply 'id'/1 431 ({'false','true','gurka'})> 432 in do call 'erlang':'put' 433 ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['not'|[['element'|[1|['atuple']]]]]|[['quote'|['ok']]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]|[['quote'|['ok']]]]]}) 434 let <_6> = 435 fun () -> 436 case 1 of 437 <_2> 438 when try 439 let <_4> = 440 let <_3> = 441 call 'erlang':'element' 442 (1, _atuple) 443 in call 'erlang':'not' 444 (_3) 445 in _4 446 of <Try> -> 447 Try 448 catch <T,R> -> 449 'false' -> 450 'ok' 451 <_5> 452 when try 453 'true' 454 of <Try> -> 455 Try 456 catch <T,R> -> 457 'false' -> 458 'error' 459 ( <_omega> when 'true' -> 460 primop 'match_fail' 461 ({'case_clause',_omega}) 462 -| ['compiler_generated'] ) 463 end 464 in apply 'check'/2 465 (_6, 'ok') 466 ( <_50> when 'true' -> 467 ( primop 'match_fail' 468 ({'function_clause',_50}) 469 -| [{'function_name',{'complex_not',1}}] ) 470 -| ['compiler_generated'] ) 471 end 472'nested_nots'/1 = 473 %% Line 191 474 fun (_0) -> 475 case <_0> of 476 <_config> 477 when try 478 let <_1> = 479 call 'erlang':'is_list' 480 (_config) 481 in _1 482 of <Try> -> 483 Try 484 catch <T,R> -> 485 'false' -> 486 do call 'erlang':'put' 487 ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['true']]|[['nested-not-1'|[0|[0]]]]]]}) 488 let <_val> = 489 <apply 'nested-not-1'/2 490 (0, 0)> 491 in case <_val> of 492 <'true'> when 'true' -> 493 _val 494 ( <_2> when 'true' -> 495 primop 'match_fail' 496 ({'badmatch',{_2}}) 497 -| ['compiler_generated'] ) 498 end 499 ( <_18> when 'true' -> 500 ( primop 'match_fail' 501 ({'function_clause',_18}) 502 -| [{'function_name',{'nested_nots',1}}] ) 503 -| ['compiler_generated'] ) 504 end 505'nested-not-1'/2 = 506 %% Line 213 507 fun (_1,_0) -> 508 case <_1,_0> of 509 <_x,_y> 510 when try 511 let <_10> = 512 let <_9> = 513 let <_7> = 514 let <_3> = 515 call 'erlang':'>' 516 (_x, _y) 517 in let <_4> = 518 let <_2> = 519 call 'erlang':'is_atom' 520 (_x) 521 in call 'erlang':'not' 522 (_2) 523 in call 'erlang':'or' 524 (_3, _4) 525 in let <_8> = 526 let <_5> = 527 call 'erlang':'is_atom' 528 (_y) 529 in let <_6> = 530 call 'erlang':'==' 531 (_x, 3.39999999999999991118e+00) 532 in call 'erlang':'or' 533 (_5, _6) 534 in call 'erlang':'and' 535 (_7, _8) 536 in call 'erlang':'not' 537 (_9) 538 in _10 539 of <Try> -> 540 Try 541 catch <T,R> -> 542 'false' -> 543 'true' 544 <_11,_12> when 'true' -> 545 'false' 546 ( <_14,_13> when 'true' -> 547 ( primop 'match_fail' 548 ({'function_clause',_14,_13}) 549 -| [{'function_name',{'nested-not-1',2}}] ) 550 -| ['compiler_generated'] ) 551 end 552'nested-not-2'/3 = 553 %% Line 219 554 fun (_x,_y,_z) -> 555 apply 'nested-not-2'/4 556 (_x, _y, _z, 'true') 557'nested-not-2'/4 = 558 %% Line 222 559 fun (_3,_2,_1,_0) -> 560 case <_3,_2,_1,_0> of 561 <_x,_y,_z,_true> 562 when try 563 let <_12> = 564 let <_11> = 565 let <_10> = 566 let <_9> = 567 let <_7> = 568 let <_4> = 569 call 'erlang':'not' 570 (_x) 571 in let <_5> = 572 call 'erlang':'not' 573 (_y) 574 in call 'erlang':'and' 575 (_4, _5) 576 in let <_8> = 577 let <_6> = 578 call 'erlang':'is_atom' 579 (_z) 580 in call 'erlang':'not' 581 (_6) 582 in call 'erlang':'or' 583 (_7, _8) 584 in call 'erlang':'not' 585 (_9) 586 in call 'erlang':'and' 587 (_true, _10) 588 in call 'erlang':'not' 589 (_11) 590 in _12 591 of <Try> -> 592 Try 593 catch <T,R> -> 594 'false' -> 595 'true' 596 <_13,_14,_15,_16> when 'true' -> 597 'false' 598 ( <_20,_19,_18,_17> when 'true' -> 599 ( primop 'match_fail' 600 ({'function_clause',_20,_19,_18,_17}) 601 -| [{'function_name',{'nested-not-2',4}}] ) 602 -| ['compiler_generated'] ) 603 end 604'semicolon'/1 = 605 %% Line 228 606 fun (_0) -> 607 case <_0> of 608 <_config> 609 when try 610 let <_1> = 611 call 'erlang':'is_list' 612 (_config) 613 in _1 614 of <Try> -> 615 Try 616 catch <T,R> -> 617 'false' -> 618 'ok' 619 ( <_2> when 'true' -> 620 ( primop 'match_fail' 621 ({'function_clause',_2}) 622 -| [{'function_name',{'semicolon',1}}] ) 623 -| ['compiler_generated'] ) 624 end 625'complex_semicolon'/1 = 626 %% Line 233 627 fun (_0) -> 628 case <_0> of 629 <_config> 630 when try 631 let <_1> = 632 call 'erlang':'is_list' 633 (_config) 634 in _1 635 of <Try> -> 636 Try 637 catch <T,R> -> 638 'false' -> 639 'ok' 640 ( <_2> when 'true' -> 641 ( primop 'match_fail' 642 ({'function_clause',_2}) 643 -| [{'function_name',{'complex_semicolon',1}}] ) 644 -| ['compiler_generated'] ) 645 end 646'comma'/1 = 647 %% Line 239 648 fun (_0) -> 649 case <_0> of 650 <_config> 651 when try 652 let <_1> = 653 call 'erlang':'is_list' 654 (_config) 655 in _1 656 of <Try> -> 657 Try 658 catch <T,R> -> 659 'false' -> 660 do call 'erlang':'put' 661 ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['progn'|[['quote'|['true']]|[['quote'|['false']]]]]|[['quote'|['ok']]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]|[['quote'|['error']]]]]}) 662 let <_6> = 663 fun () -> 664 case 1 of 665 <_2> 666 when try 667 let <_4> = 668 let <_3> = 669 call 'erlang':'and' 670 ('true', 'false') 671 in ( call 'erlang':'=:=' 672 (_3, 'true') 673 -| ['compiler_generated'] ) 674 in _4 675 of <Try> -> 676 Try 677 catch <T,R> -> 678 'false' -> 679 'ok' 680 <_5> 681 when try 682 'true' 683 of <Try> -> 684 Try 685 catch <T,R> -> 686 'false' -> 687 'error' 688 ( <_omega> when 'true' -> 689 primop 'match_fail' 690 ({'case_clause',_omega}) 691 -| ['compiler_generated'] ) 692 end 693 in apply 'check'/2 694 (_6, 'error') 695 ( <_181> when 'true' -> 696 ( primop 'match_fail' 697 ({'function_clause',_181}) 698 -| [{'function_name',{'comma',1}}] ) 699 -| ['compiler_generated'] ) 700 end 701'or_guard'/1 = 702 %% Line 305 703 fun (_0) -> 704 case <_0> of 705 <_config> 706 when try 707 let <_1> = 708 call 'erlang':'is_list' 709 (_config) 710 in _1 711 of <Try> -> 712 Try 713 catch <T,R> -> 714 'false' -> 715 do let <_true,_false,_glurf> = 716 <apply 'id'/1 717 ('true'),apply 'id'/1 718 ('false'),apply 'id'/1 719 ('glurf')> 720 in do call 'erlang':'put' 721 ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['or'|[['quote'|['true']]|[['quote'|['false']]]]]|[['quote'|['ok']]]]]]]]|[['quote'|['ok']]]]]}) 722 let <_4> = 723 fun () -> 724 case 1 of 725 <_2> 726 when try 727 let <_3> = 728 call 'erlang':'or' 729 ('true', 'false') 730 in _3 731 of <Try> -> 732 Try 733 catch <T,R> -> 734 'false' -> 735 'ok' 736 ( <_omega> when 'true' -> 737 primop 'match_fail' 738 ({'case_clause',_omega}) 739 -| ['compiler_generated'] ) 740 end 741 in apply 'check'/2 742 (_4, 'ok') 743 'ok' 744 ( <_64> when 'true' -> 745 ( primop 'match_fail' 746 ({'function_clause',_64}) 747 -| [{'function_name',{'or_guard',1}}] ) 748 -| ['compiler_generated'] ) 749 end 750'more_or_guards'/1 = 751 %% Line 346 752 fun (_0) -> 753 case <_0> of 754 <_config> 755 when try 756 let <_1> = 757 call 'erlang':'is_list' 758 (_config) 759 in _1 760 of <Try> -> 761 Try 762 catch <T,R> -> 763 'false' -> 764 do let <_true> = 765 <apply 'id'/1 766 ('true')> 767 in let <_false> = 768 <apply 'id'/1 769 ('false')> 770 in let <_atuple> = 771 <apply 'id'/1 772 ({'false','true','gurks'})> 773 in do call 'erlang':'put' 774 ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['or'|[['element'|[42|['atuple']]]|['false']]]|[['quote'|['ok']]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]|[['quote'|['error']]]]]}) 775 let <_6> = 776 fun () -> 777 case 1 of 778 <_2> 779 when try 780 let <_4> = 781 let <_3> = 782 call 'erlang':'element' 783 (42, _atuple) 784 in call 'erlang':'or' 785 (_3, _false) 786 in _4 787 of <Try> -> 788 Try 789 catch <T,R> -> 790 'false' -> 791 'ok' 792 <_5> 793 when try 794 'true' 795 of <Try> -> 796 Try 797 catch <T,R> -> 798 'false' -> 799 'error' 800 ( <_omega> when 'true' -> 801 primop 'match_fail' 802 ({'case_clause',_omega}) 803 -| ['compiler_generated'] ) 804 end 805 in apply 'check'/2 806 (_6, 'error') 807 'ok' 808 ( <_68> when 'true' -> 809 ( primop 'match_fail' 810 ({'function_clause',_68}) 811 -| [{'function_name',{'more_or_guards',1}}] ) 812 -| ['compiler_generated'] ) 813 end 814'complex_or_guards'/1 = 815 %% Line 409 816 fun (_0) -> 817 case <_0> of 818 <_config> 819 when try 820 let <_1> = 821 call 'erlang':'is_list' 822 (_config) 823 in _1 824 of <Try> -> 825 Try 826 catch <T,R> -> 827 'false' -> 828 do call 'erlang':'put' 829 ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['ok']]|[['complex-or-1'|[{'a','b','c','d'}|[{1,2,3}]]]]]]}) 830 let <_val> = 831 <apply 'complex-or-1'/2 832 ({'a','b','c','d'}, {1,2,3})> 833 in case <_val> of 834 <'ok'> when 'true' -> 835 _val 836 ( <_2> when 'true' -> 837 primop 'match_fail' 838 ({'badmatch',{_2}}) 839 -| ['compiler_generated'] ) 840 end 841 ( <_55> when 'true' -> 842 ( primop 'match_fail' 843 ({'function_clause',_55}) 844 -| [{'function_name',{'complex_or_guards',1}}] ) 845 -| ['compiler_generated'] ) 846 end 847'complex-or-1'/2 = 848 %% Line 487 849 fun (_a,_b) -> 850 case 1 of 851 <_0> 852 when try 853 let <_11> = 854 let <_9> = 855 let <_3> = 856 let <_1> = 857 call 'erlang':'tuple_size' 858 (_a) 859 in call 'erlang':'<' 860 (3, _1) 861 in let <_4> = 862 let <_2> = 863 call 'erlang':'tuple_size' 864 (_a) 865 in call 'erlang':'<' 866 (_2, 9) 867 in call 'erlang':'and' 868 (_3, _4) 869 in let <_10> = 870 let <_7> = 871 let <_5> = 872 call 'erlang':'tuple_size' 873 (_b) 874 in call 'erlang':'<' 875 (2, _5) 876 in let <_8> = 877 let <_6> = 878 call 'erlang':'tuple_size' 879 (_b) 880 in call 'erlang':'<' 881 (_6, 7) 882 in call 'erlang':'and' 883 (_7, _8) 884 in call 'erlang':'or' 885 (_9, _10) 886 in _11 887 of <Try> -> 888 Try 889 catch <T,R> -> 890 'false' -> 891 'ok' 892 <_12> 893 when try 894 'true' 895 of <Try> -> 896 Try 897 catch <T,R> -> 898 'false' -> 899 'error' 900 ( <_omega> when 'true' -> 901 primop 'match_fail' 902 ({'case_clause',_omega}) 903 -| ['compiler_generated'] ) 904 end 905'complex-or-2'/1 = 906 %% Line 492 907 fun (_tuple) -> 908 case 1 of 909 <_0> 910 when try 911 let <_6> = 912 let <_4> = 913 call 'erlang':'element' 914 (1, _tuple) 915 in let <_5> = 916 let <_3> = 917 let <_2> = 918 let <_1> = 919 call 'erlang':'element' 920 (2, _tuple) 921 in call 'erlang':'tuple_size' 922 (_1) 923 in call 'erlang':'>' 924 (_2, 3) 925 in call 'erlang':'not' 926 (_3) 927 in call 'erlang':'or' 928 (_4, _5) 929 in _6 930 of <Try> -> 931 Try 932 catch <T,R> -> 933 'false' -> 934 'ok' 935 <_7> 936 when try 937 'true' 938 of <Try> -> 939 Try 940 catch <T,R> -> 941 'false' -> 942 'error' 943 ( <_omega> when 'true' -> 944 primop 'match_fail' 945 ({'case_clause',_omega}) 946 -| ['compiler_generated'] ) 947 end 948'complex-or-3'/2 = 949 %% Line 496 950 fun (_a,_b) -> 951 case 1 of 952 <_0> 953 when try 954 let <_5> = 955 let <_3> = 956 let <_2> = 957 let <_1> = 958 call 'erlang':'size' 959 (_b) 960 in call 'erlang':'>' 961 (_1, 3) 962 in call 'erlang':'not' 963 (_2) 964 in let <_4> = 965 call 'erlang':'element' 966 (1, _a) 967 in call 'erlang':'or' 968 (_3, _4) 969 in _5 970 of <Try> -> 971 Try 972 catch <T,R> -> 973 'false' -> 974 'ok' 975 <_6> 976 when try 977 'true' 978 of <Try> -> 979 Try 980 catch <T,R> -> 981 'false' -> 982 'error' 983 ( <_omega> when 'true' -> 984 primop 'match_fail' 985 ({'case_clause',_omega}) 986 -| ['compiler_generated'] ) 987 end 988'complex-or-4'/2 = 989 %% Line 499 990 fun (_a,_b) -> 991 case 1 of 992 <_0> 993 when try 994 let <_7> = 995 let <_5> = 996 let <_4> = 997 let <_2> = 998 call 'erlang':'is_tuple' 999 (_a) 1000 in let <_3> = 1001 let <_1> = 1002 call 'erlang':'size' 1003 (_a) 1004 in call 'erlang':'>' 1005 (_1, 3) 1006 in call 'erlang':'and' 1007 (_2, _3) 1008 in call 'erlang':'not' 1009 (_4) 1010 in let <_6> = 1011 call 'erlang':'element' 1012 (1, _b) 1013 in call 'erlang':'or' 1014 (_5, _6) 1015 in _7 1016 of <Try> -> 1017 Try 1018 catch <T,R> -> 1019 'false' -> 1020 'ok' 1021 <_8> 1022 when try 1023 'true' 1024 of <Try> -> 1025 Try 1026 catch <T,R> -> 1027 'false' -> 1028 'error' 1029 ( <_omega> when 'true' -> 1030 primop 'match_fail' 1031 ({'case_clause',_omega}) 1032 -| ['compiler_generated'] ) 1033 end 1034'complex-or-5'/2 = 1035 %% Line 503 1036 fun (_a,_b) -> 1037 case 1 of 1038 <_0> 1039 when try 1040 let <_8> = 1041 let <_6> = 1042 let <_4> = 1043 let <_2> = 1044 call 'erlang':'is_tuple' 1045 (_a) 1046 in let <_3> = 1047 let <_1> = 1048 call 'erlang':'size' 1049 (_a) 1050 in call 'erlang':'>' 1051 (_1, 3) 1052 in call 'erlang':'and' 1053 (_2, _3) 1054 in call 'erlang':'not' 1055 (_4) 1056 in let <_7> = 1057 let <_5> = 1058 call 'erlang':'element' 1059 (1, _b) 1060 in call 'erlang':'not' 1061 (_5) 1062 in call 'erlang':'or' 1063 (_6, _7) 1064 in _8 1065 of <Try> -> 1066 Try 1067 catch <T,R> -> 1068 'false' -> 1069 'ok' 1070 <_9> 1071 when try 1072 'true' 1073 of <Try> -> 1074 Try 1075 catch <T,R> -> 1076 'false' -> 1077 'error' 1078 ( <_omega> when 'true' -> 1079 primop 'match_fail' 1080 ({'case_clause',_omega}) 1081 -| ['compiler_generated'] ) 1082 end 1083'complex-or-6'/2 = 1084 %% Line 507 1085 fun (_a,_b) -> 1086 case 1 of 1087 <_0> 1088 when try 1089 let <_11> = 1090 let <_9> = 1091 let <_5> = 1092 let <_3> = 1093 let <_1> = 1094 call 'erlang':'element' 1095 (1, _a) 1096 in call 'erlang':'not' 1097 (_1) 1098 in let <_4> = 1099 let <_2> = 1100 call 'erlang':'element' 1101 (2, _a) 1102 in call 'erlang':'not' 1103 (_2) 1104 in call 'erlang':'and' 1105 (_3, _4) 1106 in call 'erlang':'not' 1107 (_5) 1108 in let <_10> = 1109 let <_8> = 1110 let <_7> = 1111 let <_6> = 1112 call 'erlang':'size' 1113 (_b) 1114 in call 'erlang':'>' 1115 (_6, 3) 1116 in call 'erlang':'not' 1117 (_7) 1118 in call 'erlang':'not' 1119 (_8) 1120 in call 'erlang':'or' 1121 (_9, _10) 1122 in _11 1123 of <Try> -> 1124 Try 1125 catch <T,R> -> 1126 'false' -> 1127 'ok' 1128 <_12> 1129 when try 1130 'true' 1131 of <Try> -> 1132 Try 1133 catch <T,R> -> 1134 'false' -> 1135 'error' 1136 ( <_omega> when 'true' -> 1137 primop 'match_fail' 1138 ({'case_clause',_omega}) 1139 -| ['compiler_generated'] ) 1140 end 1141'and_guard'/1 = 1142 %% Line 512 1143 fun (_0) -> 1144 case <_0> of 1145 <_config> 1146 when try 1147 let <_1> = 1148 call 'erlang':'is_list' 1149 (_config) 1150 in _1 1151 of <Try> -> 1152 Try 1153 catch <T,R> -> 1154 'false' -> 1155 do call 'erlang':'put' 1156 ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['and'|[['quote'|['true']]|[['quote'|['false']]]]]|[['quote'|['ok']]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]|[['quote'|['error']]]]]}) 1157 let <_5> = 1158 fun () -> 1159 case 1 of 1160 <_2> 1161 when try 1162 let <_3> = 1163 call 'erlang':'and' 1164 ('true', 'false') 1165 in _3 1166 of <Try> -> 1167 Try 1168 catch <T,R> -> 1169 'false' -> 1170 'ok' 1171 <_4> 1172 when try 1173 'true' 1174 of <Try> -> 1175 Try 1176 catch <T,R> -> 1177 'false' -> 1178 'error' 1179 ( <_omega> when 'true' -> 1180 primop 'match_fail' 1181 ({'case_clause',_omega}) 1182 -| ['compiler_generated'] ) 1183 end 1184 in apply 'check'/2 1185 (_5, 'error') 1186 ( <_120> when 'true' -> 1187 ( primop 'match_fail' 1188 ({'function_clause',_120}) 1189 -| [{'function_name',{'and_guard',1}}] ) 1190 -| ['compiler_generated'] ) 1191 end 1192'relprod'/2 = 1193 %% Line 588 1194 fun (_1,_0) -> 1195 case <_1,_0> of 1196 <_r1,_r2> 1197 when try 1198 let <_10> = 1199 let <_4> = 1200 let <_2> = 1201 call 'erlang':'size' 1202 (_r1) 1203 in call 'erlang':'=:=' 1204 (_2, 3) 1205 in let <_5> = 1206 let <_3> = 1207 call 'erlang':'element' 1208 (1, _r1) 1209 in call 'erlang':'=:=' 1210 (_3, 'Set') 1211 in call 'erlang':'and' 1212 (_4, _5) 1213 in let <_11> = 1214 let <_8> = 1215 let <_6> = 1216 call 'erlang':'size' 1217 (_r2) 1218 in call 'erlang':'=:=' 1219 (_6, 3) 1220 in let <_9> = 1221 let <_7> = 1222 call 'erlang':'element' 1223 (1, _r2) 1224 in call 'erlang':'=:=' 1225 (_7, 'Set') 1226 in call 'erlang':'and' 1227 (_8, _9) 1228 in call 'erlang':'and' 1229 (_10, _11) 1230 of <Try> -> 1231 Try 1232 catch <T,R> -> 1233 'false' -> 1234 'ok' 1235 ( <_13,_12> when 'true' -> 1236 ( primop 'match_fail' 1237 ({'function_clause',_13,_12}) 1238 -| [{'function_name',{'relprod',2}}] ) 1239 -| ['compiler_generated'] ) 1240 end 1241'xor_guard'/1 = 1242 %% Line 595 1243 fun (_0) -> 1244 case <_0> of 1245 <_config> 1246 when try 1247 let <_1> = 1248 call 'erlang':'is_list' 1249 (_config) 1250 in _1 1251 of <Try> -> 1252 Try 1253 catch <T,R> -> 1254 'false' -> 1255 do call 'erlang':'put' 1256 ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['xor'|[['quote'|['true']]|[['quote'|['false']]]]]|[['quote'|['ok']]]]]]]]|[['quote'|['ok']]]]]}) 1257 let <_4> = 1258 fun () -> 1259 case 1 of 1260 <_2> 1261 when try 1262 let <_3> = 1263 call 'erlang':'xor' 1264 ('true', 'false') 1265 in _3 1266 of <Try> -> 1267 Try 1268 catch <T,R> -> 1269 'false' -> 1270 'ok' 1271 ( <_omega> when 'true' -> 1272 primop 'match_fail' 1273 ({'case_clause',_omega}) 1274 -| ['compiler_generated'] ) 1275 end 1276 in apply 'check'/2 1277 (_4, 'ok') 1278 ( <_54> when 'true' -> 1279 ( primop 'match_fail' 1280 ({'function_clause',_54}) 1281 -| [{'function_name',{'xor_guard',1}}] ) 1282 -| ['compiler_generated'] ) 1283 end 1284'more_xor_guards'/1 = 1285 %% Line 636 1286 fun (_0) -> 1287 case <_0> of 1288 <_config> 1289 when try 1290 let <_1> = 1291 call 'erlang':'is_list' 1292 (_config) 1293 in _1 1294 of <Try> -> 1295 Try 1296 catch <T,R> -> 1297 'false' -> 1298 let <_true,_false,_atuple> = 1299 <apply 'id'/1 1300 ('true'),apply 'id'/1 1301 ('false'),apply 'id'/1 1302 ({'false','true','gurka'})> 1303 in do call 'erlang':'put' 1304 ('test_server_loc', {'lfe_guard_SUITE',['check'|[['lambda'|[[]|[['eif'|[['xor'|[['element'|[42|['atuple']]]|['false']]]|[['quote'|['ok']]|[['quote'|['true']]|[['quote'|['error']]]]]]]]]]|[['quote'|['error']]]]]}) 1305 let <_6> = 1306 fun () -> 1307 case 1 of 1308 <_2> 1309 when try 1310 let <_4> = 1311 let <_3> = 1312 call 'erlang':'element' 1313 (42, _atuple) 1314 in call 'erlang':'xor' 1315 (_3, _false) 1316 in _4 1317 of <Try> -> 1318 Try 1319 catch <T,R> -> 1320 'false' -> 1321 'ok' 1322 <_5> 1323 when try 1324 'true' 1325 of <Try> -> 1326 Try 1327 catch <T,R> -> 1328 'false' -> 1329 'error' 1330 ( <_omega> when 'true' -> 1331 primop 'match_fail' 1332 ({'case_clause',_omega}) 1333 -| ['compiler_generated'] ) 1334 end 1335 in apply 'check'/2 1336 (_6, 'error') 1337 ( <_29> when 'true' -> 1338 ( primop 'match_fail' 1339 ({'function_clause',_29}) 1340 -| [{'function_name',{'more_xor_guards',1}}] ) 1341 -| ['compiler_generated'] ) 1342 end 1343'build_in_guard'/1 = 1344 %% Line 666 1345 fun (_0) -> 1346 case <_0> of 1347 <_config> 1348 when try 1349 let <_1> = 1350 call 'erlang':'is_list' 1351 (_config) 1352 in _1 1353 of <Try> -> 1354 Try 1355 catch <T,R> -> 1356 'false' -> 1357 let <_subbin> = 1358 <#{#<64>(8,1,'integer',['unsigned'|['big']]), 1359 #<20>(8,1,'integer',['unsigned'|['big']]), 1360 #<0>(8,1,'integer',['unsigned'|['big']]), 1361 #<0>(8,1,'integer',['unsigned'|['big']]), 1362 #<0>(8,1,'integer',['unsigned'|['big']]), 1363 #<0>(8,1,'integer',['unsigned'|['big']]), 1364 #<0>(8,1,'integer',['unsigned'|['big']]), 1365 #<0>(8,1,'integer',['unsigned'|['big']])}#> 1366 in let <_b> = 1367 <#{#<1>(8,1,'integer',['unsigned'|['big']]), 1368 #<_subbin>('all',8,'binary',['unsigned'|['big']]), 1369 #<3.50000000000000000000e+00>(64,1,'float',['unsigned'|['big']])}#> 1370 in do call 'erlang':'put' 1371 ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['ok']]|[['eif'|[['=:='|['b'|[['binary'|[1|[['subbin'|['binary']]|[[3.50000000000000000000e+00|['float']]]]]]]]]|[['quote'|['ok']]]]]]]]}) 1372 let <_val> = 1373 <case 1 of 1374 <_2> 1375 when try 1376 let <_3> = 1377 call 'erlang':'=:=' 1378 (_b, #{#<1>(8,1,'integer',['unsigned'|['big']]), 1379 #<_subbin>('all',8,'binary',['unsigned'|['big']]), 1380 #<3.50000000000000000000e+00>(64,1,'float',['unsigned'|['big']])}#) 1381 in _3 1382 of <Try> -> 1383 Try 1384 catch <T,R> -> 1385 'false' -> 1386 'ok' 1387 ( <_omega> when 'true' -> 1388 primop 'match_fail' 1389 ({'case_clause',_omega}) 1390 -| ['compiler_generated'] ) 1391 end> 1392 in case <_val> of 1393 <'ok'> when 'true' -> 1394 _val 1395 ( <_4> when 'true' -> 1396 primop 'match_fail' 1397 ({'badmatch',{_4}}) 1398 -| ['compiler_generated'] ) 1399 end 1400 ( <_5> when 'true' -> 1401 ( primop 'match_fail' 1402 ({'function_clause',_5}) 1403 -| [{'function_name',{'build_in_guard',1}}] ) 1404 -| ['compiler_generated'] ) 1405 end 1406'old_guard_tests'/1 = 1407 %% Line 674 1408 fun (_0) -> 1409 case <_0> of 1410 <_config> 1411 when try 1412 let <_1> = 1413 call 'erlang':'is_list' 1414 (_config) 1415 in _1 1416 of <Try> -> 1417 Try 1418 catch <T,R> -> 1419 'false' -> 1420 'ok' 1421 ( <_2> when 'true' -> 1422 ( primop 'match_fail' 1423 ({'function_clause',_2}) 1424 -| [{'function_name',{'old_guard_tests',1}}] ) 1425 -| ['compiler_generated'] ) 1426 end 1427'gbif'/1 = 1428 %% Line 679 1429 fun (_0) -> 1430 case <_0> of 1431 <_config> 1432 when try 1433 let <_1> = 1434 call 'erlang':'is_list' 1435 (_config) 1436 in _1 1437 of <Try> -> 1438 Try 1439 catch <T,R> -> 1440 'false' -> 1441 do call 'erlang':'put' 1442 ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['error']]|[['gbif-1'|[1|[{'false','true'}]]]]]]}) 1443 let <_val> = 1444 <apply 'gbif-1'/2 1445 (1, {'false','true'})> 1446 in case <_val> of 1447 <'error'> when 'true' -> 1448 _val 1449 ( <_2> when 'true' -> 1450 primop 'match_fail' 1451 ({'badmatch',{_2}}) 1452 -| ['compiler_generated'] ) 1453 end 1454 ( <_4> when 'true' -> 1455 ( primop 'match_fail' 1456 ({'function_clause',_4}) 1457 -| [{'function_name',{'gbif',1}}] ) 1458 -| ['compiler_generated'] ) 1459 end 1460'gbif-1'/2 = 1461 %% Line 685 1462 fun (_1,_0) -> 1463 case <_1,_0> of 1464 <_p,_t> 1465 when try 1466 let <_3> = 1467 let <_2> = 1468 call 'erlang':'element' 1469 (_p, _t) 1470 in ( call 'erlang':'=:=' 1471 (_2, 'true') 1472 -| ['compiler_generated'] ) 1473 in _3 1474 of <Try> -> 1475 Try 1476 catch <T,R> -> 1477 'false' -> 1478 'ok' 1479 <_4,_5> when 'true' -> 1480 'error' 1481 ( <_7,_6> when 'true' -> 1482 ( primop 'match_fail' 1483 ({'function_clause',_7,_6}) 1484 -| [{'function_name',{'gbif-1',2}}] ) 1485 -| ['compiler_generated'] ) 1486 end 1487't_is_boolean'/1 = 1488 %% Line 690 1489 fun (_0) -> 1490 case <_0> of 1491 <_config> 1492 when try 1493 let <_1> = 1494 call 'erlang':'is_list' 1495 (_config) 1496 in _1 1497 of <Try> -> 1498 Try 1499 catch <T,R> -> 1500 'false' -> 1501 do call 'erlang':'put' 1502 ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['true']]|[['is_boolean'|[['quote'|['true']]]]]]]}) 1503 let <_val> = 1504 <call 'erlang':'is_boolean' 1505 ('true')> 1506 in case <_val> of 1507 <'true'> when 'true' -> 1508 _val 1509 ( <_2> when 'true' -> 1510 primop 'match_fail' 1511 ({'badmatch',{_2}}) 1512 -| ['compiler_generated'] ) 1513 end 1514 ( <_70> when 'true' -> 1515 ( primop 'match_fail' 1516 ({'function_clause',_70}) 1517 -| [{'function_name',{'t_is_boolean',1}}] ) 1518 -| ['compiler_generated'] ) 1519 end 1520'bool'/1 = 1521 %% Line 744 1522 fun (_0) -> 1523 case <_0> of 1524 <_x> 1525 when try 1526 let <_1> = 1527 call 'erlang':'is_boolean' 1528 (_x) 1529 in _1 1530 of <Try> -> 1531 Try 1532 catch <T,R> -> 1533 'false' -> 1534 'ok' 1535 <_2> when 'true' -> 1536 'error' 1537 ( <_3> when 'true' -> 1538 ( primop 'match_fail' 1539 ({'function_clause',_3}) 1540 -| [{'function_name',{'bool',1}}] ) 1541 -| ['compiler_generated'] ) 1542 end 1543'my-is-bool'/1 = 1544 %% Line 748 1545 fun (_v) -> 1546 let <_r0> = 1547 <apply 'my-is-bool-a'/1 1548 (_v)> 1549 in case <apply 'my-is-bool-b'/1 1550 (_v)> of 1551 <_res> 1552 when try 1553 let <_0> = 1554 call 'erlang':'=:=' 1555 (_res, _r0) 1556 in _0 1557 of <Try> -> 1558 Try 1559 catch <T,R> -> 1560 'false' -> 1561 _res 1562 ( <_1> when 'true' -> 1563 primop 'match_fail' 1564 ({'badmatch',{_1}}) 1565 -| ['compiler_generated'] ) 1566 end 1567'my-is-bool-a'/1 = 1568 %% Line 753 1569 fun (_v) -> 1570 case _v of 1571 <'true'> when 'true' -> 1572 'true' 1573 <'false'> when 'true' -> 1574 'true' 1575 <_0> when 'true' -> 1576 'false' 1577 ( <_omega> when 'true' -> 1578 primop 'match_fail' 1579 ({'case_clause',_omega}) 1580 -| ['compiler_generated'] ) 1581 end 1582'my-is-bool-b'/1 = 1583 %% Line 759 1584 fun (_v) -> 1585 case _v of 1586 <'false'> when 'true' -> 1587 'true' 1588 <'true'> when 'true' -> 1589 'true' 1590 <_0> when 'true' -> 1591 'false' 1592 ( <_omega> when 'true' -> 1593 primop 'match_fail' 1594 ({'case_clause',_omega}) 1595 -| ['compiler_generated'] ) 1596 end 1597'is_function_2'/1 = 1598 %% Line 765 1599 fun (_0) -> 1600 case <_0> of 1601 <_config> 1602 when try 1603 let <_1> = 1604 call 'erlang':'is_list' 1605 (_config) 1606 in _1 1607 of <Try> -> 1608 Try 1609 catch <T,R> -> 1610 'false' -> 1611 do call 'erlang':'put' 1612 ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['true']]|[['is_function'|[['id'|[['function'|['lfe_guard_SUITE'|['all'|[1]]]]]]|[1]]]]]]}) 1613 let <_val> = 1614 <let <_3> = 1615 let <_2> = 1616 call 'erlang':'make_fun' 1617 ('lfe_guard_SUITE', 'all', 1) 1618 in apply 'id'/1 1619 (_2) 1620 in call 'erlang':'is_function' 1621 (_3, 1)> 1622 in case <_val> of 1623 <'true'> when 'true' -> 1624 _val 1625 ( <_4> when 'true' -> 1626 primop 'match_fail' 1627 ({'badmatch',{_4}}) 1628 -| ['compiler_generated'] ) 1629 end 1630 ( <_17> when 'true' -> 1631 ( primop 'match_fail' 1632 ({'function_clause',_17}) 1633 -| [{'function_name',{'is_function_2',1}}] ) 1634 -| ['compiler_generated'] ) 1635 end 1636'tricky'/1 = 1637 %% Line 775 1638 fun (_0) -> 1639 case <_0> of 1640 <_config> 1641 when try 1642 let <_1> = 1643 call 'erlang':'is_list' 1644 (_config) 1645 in _1 1646 of <Try> -> 1647 Try 1648 catch <T,R> -> 1649 'false' -> 1650 do call 'erlang':'put' 1651 ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['not_ok']]|[['tricky-1'|[1|[2]]]]]]}) 1652 let <_val> = 1653 <apply 'tricky-1'/2 1654 (1, 2)> 1655 in case <_val> of 1656 <'not_ok'> when 'true' -> 1657 _val 1658 ( <_2> when 'true' -> 1659 primop 'match_fail' 1660 ({'badmatch',{_2}}) 1661 -| ['compiler_generated'] ) 1662 end 1663 ( <_12> when 'true' -> 1664 ( primop 'match_fail' 1665 ({'function_clause',_12}) 1666 -| [{'function_name',{'tricky',1}}] ) 1667 -| ['compiler_generated'] ) 1668 end 1669'tricky-1'/2 = 1670 %% Line 791 1671 fun (_1,_0) -> 1672 case <_1,_0> of 1673 <_x,_y> 1674 when try 1675 let <_6> = 1676 let <_5> = 1677 let <_4> = 1678 let <_2> = 1679 call 'erlang':'==' 1680 (_x, 1) 1681 in let <_3> = 1682 call 'erlang':'==' 1683 (_y, 2) 1684 in call 'erlang':'or' 1685 (_2, _3) 1686 in call 'erlang':'abs' 1687 (_4) 1688 in ( call 'erlang':'=:=' 1689 (_5, 'true') 1690 -| ['compiler_generated'] ) 1691 in _6 1692 of <Try> -> 1693 Try 1694 catch <T,R> -> 1695 'false' -> 1696 'ok' 1697 <_7,_8> when 'true' -> 1698 'not_ok' 1699 ( <_10,_9> when 'true' -> 1700 ( primop 'match_fail' 1701 ({'function_clause',_10,_9}) 1702 -| [{'function_name',{'tricky-1',2}}] ) 1703 -| ['compiler_generated'] ) 1704 end 1705'tricky-2'/1 = 1706 %% Line 795 1707 fun (_0) -> 1708 case <_0> of 1709 <_x> 1710 when try 1711 let <_3> = 1712 let <_1> = 1713 call 'erlang':'float' 1714 (_x) 1715 in let <_2> = 1716 call 'erlang':'float' 1717 (_x) 1718 in call 'erlang':'or' 1719 (_1, _2) 1720 in _3 1721 of <Try> -> 1722 Try 1723 catch <T,R> -> 1724 'false' -> 1725 'ok' 1726 <_4> when 'true' -> 1727 'error' 1728 ( <_5> when 'true' -> 1729 ( primop 'match_fail' 1730 ({'function_clause',_5}) 1731 -| [{'function_name',{'tricky-2',1}}] ) 1732 -| ['compiler_generated'] ) 1733 end 1734'rb'/3 = 1735 %% Line 801 1736 fun (_2,_1,_0) -> 1737 case <_2,_1,_0> of 1738 <_size,_toread,_sofar> 1739 when try 1740 let <_6> = 1741 let <_4> = 1742 let <_3> = 1743 call 'erlang':'+' 1744 (_sofar, _size) 1745 in call 'erlang':'<' 1746 (_3, 81920) 1747 in let <_5> = 1748 call 'erlang':'==' 1749 (_toread, []) 1750 in call 'erlang':'or' 1751 (_4, _5) 1752 in _6 1753 of <Try> -> 1754 Try 1755 catch <T,R> -> 1756 'false' -> 1757 'true' 1758 <_7,_8,_9> when 'true' -> 1759 'false' 1760 ( <_12,_11,_10> when 'true' -> 1761 ( primop 'match_fail' 1762 ({'function_clause',_12,_11,_10}) 1763 -| [{'function_name',{'rb',3}}] ) 1764 -| ['compiler_generated'] ) 1765 end 1766'rel_ops'/1 = 1767 %% Line 830 1768 fun (_0) -> 1769 case <_0> of 1770 <_config> 1771 when try 1772 let <_1> = 1773 call 'erlang':'is_list' 1774 (_config) 1775 in _1 1776 of <Try> -> 1777 Try 1778 catch <T,R> -> 1779 'false' -> 1780 do call 'erlang':'put' 1781 ('test_server_loc', {'lfe_guard_SUITE',['T'|['=/='|[1|[1.00000000000000000000e+00]]]]}) 1782 case <case 1 of 1783 <_2> 1784 when try 1785 let <_3> = 1786 call 'erlang':'=/=' 1787 (1, 1.00000000000000000000e+00) 1788 in _3 1789 of <Try> -> 1790 Try 1791 catch <T,R> -> 1792 'false' -> 1793 'ok' 1794 <_4> 1795 when try 1796 'true' 1797 of <Try> -> 1798 Try 1799 catch <T,R> -> 1800 'false' -> 1801 'error' 1802 ( <_omega> when 'true' -> 1803 primop 'match_fail' 1804 ({'case_clause',_omega}) 1805 -| ['compiler_generated'] ) 1806 end> of 1807 <'ok'> when 'true' -> 1808 case <case 1 of 1809 <_5> 1810 when try 1811 let <_7> = 1812 let <_6> = 1813 call 'erlang':'=/=' 1814 (1, 1.00000000000000000000e+00) 1815 in call 'erlang':'not' 1816 (_6) 1817 in _7 1818 of <Try> -> 1819 Try 1820 catch <T,R> -> 1821 'false' -> 1822 'error' 1823 <_8> 1824 when try 1825 'true' 1826 of <Try> -> 1827 Try 1828 catch <T,R> -> 1829 'false' -> 1830 'ok' 1831 ( <_omega> when 'true' -> 1832 primop 'match_fail' 1833 ({'case_clause',_omega}) 1834 -| ['compiler_generated'] ) 1835 end> of 1836 <'ok'> when 'true' -> 1837 let <_x,_y,_true,_false> = 1838 <apply 'id'/1 1839 (1),apply 'id'/1 1840 (1.00000000000000000000e+00),apply 'id'/1 1841 ('true'),apply 'id'/1 1842 ('false')> 1843 in case <case 1 of 1844 <_9> 1845 when try 1846 let <_10> = 1847 call 'erlang':'=/=' 1848 (_x, _y) 1849 in _10 1850 of <Try> -> 1851 Try 1852 catch <T,R> -> 1853 'false' -> 1854 'ok' 1855 <_11> 1856 when try 1857 'true' 1858 of <Try> -> 1859 Try 1860 catch <T,R> -> 1861 'false' -> 1862 'error' 1863 ( <_omega> when 'true' -> 1864 primop 'match_fail' 1865 ({'case_clause',_omega}) 1866 -| ['compiler_generated'] ) 1867 end> of 1868 <'ok'> when 'true' -> 1869 case <case 1 of 1870 <_12> 1871 when try 1872 let <_15> = 1873 let <_14> = 1874 let <_13> = 1875 call 'erlang':'=/=' 1876 (_x, _y) 1877 in call 'erlang':'or' 1878 (_false, _13) 1879 in call 'erlang':'or' 1880 (_14, _false) 1881 in _15 1882 of <Try> -> 1883 Try 1884 catch <T,R> -> 1885 'false' -> 1886 'ok' 1887 <_16> 1888 when try 1889 'true' 1890 of <Try> -> 1891 Try 1892 catch <T,R> -> 1893 'false' -> 1894 'error' 1895 ( <_omega> when 'true' -> 1896 primop 'match_fail' 1897 ({'case_clause',_omega}) 1898 -| ['compiler_generated'] ) 1899 end> of 1900 <'ok'> when 'true' -> 1901 case <case 1 of 1902 <_17> 1903 when try 1904 let <_19> = 1905 let <_18> = 1906 call 'erlang':'=/=' 1907 (_x, _y) 1908 in call 'erlang':'and' 1909 (_18, _true) 1910 in _19 1911 of <Try> -> 1912 Try 1913 catch <T,R> -> 1914 'false' -> 1915 'ok' 1916 <_20> 1917 when try 1918 'true' 1919 of <Try> -> 1920 Try 1921 catch <T,R> -> 1922 'false' -> 1923 'error' 1924 ( <_omega> when 'true' -> 1925 primop 'match_fail' 1926 ({'case_clause',_omega}) 1927 -| ['compiler_generated'] ) 1928 end> of 1929 <'ok'> when 'true' -> 1930 case <case 1 of 1931 <_21> 1932 when try 1933 let <_23> = 1934 let <_22> = 1935 call 'erlang':'=/=' 1936 (_x, _y) 1937 in call 'erlang':'not' 1938 (_22) 1939 in _23 1940 of <Try> -> 1941 Try 1942 catch <T,R> -> 1943 'false' -> 1944 'error' 1945 <_24> 1946 when try 1947 'true' 1948 of <Try> -> 1949 Try 1950 catch <T,R> -> 1951 'false' -> 1952 'ok' 1953 ( <_omega> when 'true' -> 1954 primop 'match_fail' 1955 ({'case_clause',_omega}) 1956 -| ['compiler_generated'] ) 1957 end> of 1958 <'ok'> when 'true' -> 1959 case <case 1 of 1960 <_25> 1961 when try 1962 let <_29> = 1963 let <_28> = 1964 let <_27> = 1965 let <_26> = 1966 call 'erlang':'=/=' 1967 (_x, _y) 1968 in call 'erlang':'not' 1969 (_26) 1970 in call 'erlang':'or' 1971 (_false, _27) 1972 in call 'erlang':'or' 1973 (_28, _false) 1974 in _29 1975 of <Try> -> 1976 Try 1977 catch <T,R> -> 1978 'false' -> 1979 'error' 1980 <_30> 1981 when try 1982 'true' 1983 of <Try> -> 1984 Try 1985 catch <T,R> -> 1986 'false' -> 1987 'ok' 1988 ( <_omega> when 'true' -> 1989 primop 'match_fail' 1990 ({'case_clause',_omega}) 1991 -| ['compiler_generated'] ) 1992 end> of 1993 <'ok'> when 'true' -> 1994 'ok' 1995 ( <_31> when 'true' -> 1996 primop 'match_fail' 1997 ({'badmatch',{_31}}) 1998 -| ['compiler_generated'] ) 1999 end 2000 ( <_32> when 'true' -> 2001 primop 'match_fail' 2002 ({'badmatch',{_32}}) 2003 -| ['compiler_generated'] ) 2004 end 2005 ( <_33> when 'true' -> 2006 primop 'match_fail' 2007 ({'badmatch',{_33}}) 2008 -| ['compiler_generated'] ) 2009 end 2010 ( <_34> when 'true' -> 2011 primop 'match_fail' 2012 ({'badmatch',{_34}}) 2013 -| ['compiler_generated'] ) 2014 end 2015 ( <_35> when 'true' -> 2016 primop 'match_fail' 2017 ({'badmatch',{_35}}) 2018 -| ['compiler_generated'] ) 2019 end 2020 ( <_36> when 'true' -> 2021 primop 'match_fail' 2022 ({'badmatch',{_36}}) 2023 -| ['compiler_generated'] ) 2024 end 2025 ( <_37> when 'true' -> 2026 primop 'match_fail' 2027 ({'badmatch',{_37}}) 2028 -| ['compiler_generated'] ) 2029 end 2030 ( <_769> when 'true' -> 2031 ( primop 'match_fail' 2032 ({'function_clause',_769}) 2033 -| [{'function_name',{'rel_ops',1}}] ) 2034 -| ['compiler_generated'] ) 2035 end 2036'literal_type_tests'/1 = 2037 %% Line 873 2038 fun (_0) -> 2039 case <_0> of 2040 <_config> 2041 when try 2042 let <_1> = 2043 call 'erlang':'is_list' 2044 (_config) 2045 in _1 2046 of <Try> -> 2047 Try 2048 catch <T,R> -> 2049 'false' -> 2050 case 'guard_suite' of 2051 <'guard_suite'> when 'true' -> 2052 apply 'literal-type-tests-1'/1 2053 (_config) 2054 <_2> when 'true' -> 2055 {'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]]]]]]]]]]]]]]]]]]]]]]]]]]]]]} 2056 ( <_omega> when 'true' -> 2057 primop 'match_fail' 2058 ({'case_clause',_omega}) 2059 -| ['compiler_generated'] ) 2060 end 2061 ( <_3> when 'true' -> 2062 ( primop 'match_fail' 2063 ({'function_clause',_3}) 2064 -| [{'function_name',{'literal_type_tests',1}}] ) 2065 -| ['compiler_generated'] ) 2066 end 2067'literal-type-tests-1'/1 = 2068 %% Line 879 2069 fun (_config) -> 2070 'ok' 2071'basic_andalso_orelse'/1 = 2072 %% Line 967 2073 fun (_0) -> 2074 case <_0> of 2075 <_config> 2076 when try 2077 let <_1> = 2078 call 'erlang':'is_list' 2079 (_config) 2080 in _1 2081 of <Try> -> 2082 Try 2083 catch <T,R> -> 2084 'false' -> 2085 let <_t> = 2086 <apply 'id'/1 2087 ({'type','integers',23,42})> 2088 in do call 'erlang':'put' 2089 ('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']]]]]]]]]]}) 2090 let <_val> = 2091 <case 1 of 2092 <_2> 2093 when try 2094 let <_7> = 2095 let <_6> = 2096 case let <_3> = 2097 call 'erlang':'element' 2098 (1, _t) 2099 in call 'erlang':'=:=' 2100 (_3, 'type') of 2101 <'true'> when 'true' -> 2102 case let <_4> = 2103 call 'erlang':'tuple_size' 2104 (_t) 2105 in call 'erlang':'=:=' 2106 (_4, 4) of 2107 <'true'> when 'true' -> 2108 let <_5> = 2109 call 'erlang':'element' 2110 (2, _t) 2111 in call 'erlang':'=:=' 2112 (_5, 'integers') 2113 <'false'> when 'true' -> 2114 'false' 2115 ( <_omega> when 'true' -> 2116 _omega 2117 -| ['compiler_generated'] ) 2118 end 2119 <'false'> when 'true' -> 2120 'false' 2121 ( <_omega> when 'true' -> 2122 _omega 2123 -| ['compiler_generated'] ) 2124 end 2125 in ( call 'erlang':'=:=' 2126 (_6, 'true') 2127 -| ['compiler_generated'] ) 2128 in _7 2129 of <Try> -> 2130 Try 2131 catch <T,R> -> 2132 'false' -> 2133 let <_8> = 2134 call 'erlang':'element' 2135 (3, _t) 2136 in let <_9> = 2137 call 'erlang':'element' 2138 (4, _t) 2139 in call 'erlang':'+' 2140 (_8, _9) 2141 <_10> 2142 when try 2143 'true' 2144 of <Try> -> 2145 Try 2146 catch <T,R> -> 2147 'false' -> 2148 'error' 2149 ( <_omega> when 'true' -> 2150 primop 'match_fail' 2151 ({'case_clause',_omega}) 2152 -| ['compiler_generated'] ) 2153 end> 2154 in case <_val> of 2155 <65> when 'true' -> 2156 _val 2157 ( <_11> when 'true' -> 2158 primop 'match_fail' 2159 ({'badmatch',{_11}}) 2160 -| ['compiler_generated'] ) 2161 end 2162 ( <_47> when 'true' -> 2163 ( primop 'match_fail' 2164 ({'function_clause',_47}) 2165 -| [{'function_name',{'basic_andalso_orelse',1}}] ) 2166 -| ['compiler_generated'] ) 2167 end 2168'basic-rt'/1 = 2169 %% Line 1020 2170 fun (_0) -> 2171 case <_0> of 2172 <_t> 2173 when try 2174 let <_5> = 2175 let <_4> = 2176 case call 'erlang':'is_tuple' 2177 (_t) of 2178 <'true'> when 'true' -> 2179 case let <_1> = 2180 call 'erlang':'tuple_size' 2181 (_t) 2182 in call 'erlang':'=:=' 2183 (_1, 4) of 2184 <'true'> when 'true' -> 2185 case let <_2> = 2186 call 'erlang':'element' 2187 (1, _t) 2188 in call 'erlang':'=:=' 2189 (_2, 'type') of 2190 <'true'> when 'true' -> 2191 let <_3> = 2192 call 'erlang':'element' 2193 (2, _t) 2194 in call 'erlang':'==' 2195 (_3, 'integers') 2196 <'false'> when 'true' -> 2197 'false' 2198 ( <_omega> when 'true' -> 2199 _omega 2200 -| ['compiler_generated'] ) 2201 end 2202 <'false'> when 'true' -> 2203 'false' 2204 ( <_omega> when 'true' -> 2205 _omega 2206 -| ['compiler_generated'] ) 2207 end 2208 <'false'> when 'true' -> 2209 'false' 2210 ( <_omega> when 'true' -> 2211 _omega 2212 -| ['compiler_generated'] ) 2213 end 2214 in ( call 'erlang':'=:=' 2215 (_4, 'true') 2216 -| ['compiler_generated'] ) 2217 in _5 2218 of <Try> -> 2219 Try 2220 catch <T,R> -> 2221 'false' -> 2222 let <_6> = 2223 call 'erlang':'element' 2224 (3, _t) 2225 in let <_7> = 2226 call 'erlang':'element' 2227 (4, _t) 2228 in call 'erlang':'+' 2229 (_6, _7) 2230 <_t> 2231 when try 2232 let <_11> = 2233 let <_10> = 2234 case call 'erlang':'is_tuple' 2235 (_t) of 2236 <'true'> when 'true' -> 2237 case let <_8> = 2238 call 'erlang':'tuple_size' 2239 (_t) 2240 in call 'erlang':'=:=' 2241 (_8, 2) of 2242 <'true'> when 'true' -> 2243 let <_9> = 2244 call 'erlang':'element' 2245 (1, _t) 2246 in call 'erlang':'=:=' 2247 (_9, 'vector') 2248 <'false'> when 'true' -> 2249 'false' 2250 ( <_omega> when 'true' -> 2251 _omega 2252 -| ['compiler_generated'] ) 2253 end 2254 <'false'> when 'true' -> 2255 'false' 2256 ( <_omega> when 'true' -> 2257 _omega 2258 -| ['compiler_generated'] ) 2259 end 2260 in ( call 'erlang':'=:=' 2261 (_10, 'true') 2262 -| ['compiler_generated'] ) 2263 in _11 2264 of <Try> -> 2265 Try 2266 catch <T,R> -> 2267 'false' -> 2268 case <call 'erlang':'element' 2269 (2, _t)> of 2270 <{_x,_y}> when 'true' -> 2271 case 1 of 2272 <_12> 2273 when try 2274 let <_16> = 2275 let <_15> = 2276 let <_13> = 2277 call 'erlang':'is_float' 2278 (_x) 2279 in let <_14> = 2280 call 'erlang':'is_float' 2281 (_y) 2282 in call 'erlang':'and' 2283 (_13, _14) 2284 in ( call 'erlang':'=:=' 2285 (_15, 'true') 2286 -| ['compiler_generated'] ) 2287 in _16 2288 of <Try> -> 2289 Try 2290 catch <T,R> -> 2291 'false' -> 2292 let <_19> = 2293 let <_17> = 2294 call 'erlang':'*' 2295 (_x, _x) 2296 in let <_18> = 2297 call 'erlang':'*' 2298 (_y, _y) 2299 in call 'erlang':'+' 2300 (_17, _18) 2301 in call 'math':'sqrt' 2302 (_19) 2303 ( <_omega> when 'true' -> 2304 primop 'match_fail' 2305 ({'case_clause',_omega}) 2306 -| ['compiler_generated'] ) 2307 end 2308 ( <_20> when 'true' -> 2309 primop 'match_fail' 2310 ({'badmatch',{_20}}) 2311 -| ['compiler_generated'] ) 2312 end 2313 <['+',_a,_b]> when 'true' -> 2314 let <_22> = 2315 let <_21> = 2316 call 'erlang':'+' 2317 (_a, _b) 2318 in apply 'id'/1 2319 (_21) 2320 in call 'erlang':'*' 2321 (_22, 2) 2322 <{_r1,_r2}> 2323 when try 2324 let <_28> = 2325 let <_27> = 2326 case let <_23> = 2327 call 'erlang':'size' 2328 (_r1) 2329 in call 'erlang':'=:=' 2330 (_23, 3) of 2331 <'true'> when 'true' -> 2332 case let <_24> = 2333 call 'erlang':'element' 2334 (1, _r1) 2335 in call 'erlang':'=:=' 2336 (_24, 'Set') of 2337 <'true'> when 'true' -> 2338 case let <_25> = 2339 call 'erlang':'size' 2340 (_r2) 2341 in call 'erlang':'=:=' 2342 (_25, 3) of 2343 <'true'> when 'true' -> 2344 let <_26> = 2345 call 'erlang':'element' 2346 (1, _r2) 2347 in call 'erlang':'=:=' 2348 (_26, 'Set') 2349 <'false'> when 'true' -> 2350 'false' 2351 ( <_omega> when 'true' -> 2352 _omega 2353 -| ['compiler_generated'] ) 2354 end 2355 <'false'> when 'true' -> 2356 'false' 2357 ( <_omega> when 'true' -> 2358 _omega 2359 -| ['compiler_generated'] ) 2360 end 2361 <'false'> when 'true' -> 2362 'false' 2363 ( <_omega> when 'true' -> 2364 _omega 2365 -| ['compiler_generated'] ) 2366 end 2367 in ( call 'erlang':'=:=' 2368 (_27, 'true') 2369 -| ['compiler_generated'] ) 2370 in _28 2371 of <Try> -> 2372 Try 2373 catch <T,R> -> 2374 'false' -> 2375 let <_r1> = 2376 <apply 'id'/1 2377 (_r1)> 2378 in let <_r2> = 2379 <apply 'id'/1 2380 (_r2)> 2381 in _r1 2382 <_t> 2383 when try 2384 let <_32> = 2385 let <_31> = 2386 case call 'erlang':'is_tuple' 2387 (_t) of 2388 <'true'> when 'true' -> 2389 case let <_29> = 2390 call 'erlang':'tuple_size' 2391 (_t) 2392 in call 'erlang':'=:=' 2393 (_29, 2) of 2394 <'true'> when 'true' -> 2395 let <_30> = 2396 call 'erlang':'element' 2397 (1, _t) 2398 in call 'erlang':'=:=' 2399 (_30, 'klurf') 2400 <'false'> when 'true' -> 2401 'false' 2402 ( <_omega> when 'true' -> 2403 _omega 2404 -| ['compiler_generated'] ) 2405 end 2406 <'false'> when 'true' -> 2407 'false' 2408 ( <_omega> when 'true' -> 2409 _omega 2410 -| ['compiler_generated'] ) 2411 end 2412 in ( call 'erlang':'=:=' 2413 (_31, 'true') 2414 -| ['compiler_generated'] ) 2415 in _32 2416 of <Try> -> 2417 Try 2418 catch <T,R> -> 2419 'false' -> 2420 let <_34> = 2421 let <_33> = 2422 call 'erlang':'element' 2423 (2, _t) 2424 in apply 'id'/1 2425 (_33) 2426 in call 'erlang':'*' 2427 (3, _34) 2428 <_35> when 'true' -> 2429 'error' 2430 ( <_36> when 'true' -> 2431 ( primop 'match_fail' 2432 ({'function_clause',_36}) 2433 -| [{'function_name',{'basic-rt',1}}] ) 2434 -| ['compiler_generated'] ) 2435 end 2436'traverse_dcd'/1 = 2437 %% Line 1043 2438 fun (_0) -> 2439 case <_0> of 2440 <_config> 2441 when try 2442 let <_1> = 2443 call 'erlang':'is_list' 2444 (_config) 2445 in _1 2446 of <Try> -> 2447 Try 2448 catch <T,R> -> 2449 'false' -> 2450 let <_l0> = 2451 <[{'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']]]]> 2452 in case <apply 'traverse-dcd'/3 2453 ({'cont',_l0}, 'log', 'funny')> of 2454 <{'cont',[{'log_header','dcd_log',[48|[46|[48]]],'a','b','c'}|['blurf']],'log','funny'}> when 'true' -> 2455 let <_l1> = 2456 <[{'log_header','dcd_log',[49|[46|[48]]]}]> 2457 in case <apply 'traverse-dcd'/3 2458 ({'cont',_l1}, 'log', 'funny')> of 2459 <{'cont',_l1,'log','funny'}> when 'true' -> 2460 let <_l2> = 2461 <[{'a','tuple'}]> 2462 in case <apply 'traverse-dcd'/3 2463 ({'cont',_l2}, 'log', 'funny')> of 2464 <{'cont',_l2,'log','funny'}> when 'true' -> 2465 'ok' 2466 ( <_2> when 'true' -> 2467 primop 'match_fail' 2468 ({'badmatch',{_2}}) 2469 -| ['compiler_generated'] ) 2470 end 2471 ( <_3> when 'true' -> 2472 primop 'match_fail' 2473 ({'badmatch',{_3}}) 2474 -| ['compiler_generated'] ) 2475 end 2476 ( <_4> when 'true' -> 2477 primop 'match_fail' 2478 ({'badmatch',{_4}}) 2479 -| ['compiler_generated'] ) 2480 end 2481 ( <_5> when 'true' -> 2482 ( primop 'match_fail' 2483 ({'function_clause',_5}) 2484 -| [{'function_name',{'traverse_dcd',1}}] ) 2485 -| ['compiler_generated'] ) 2486 end 2487'traverse-dcd'/3 = 2488 %% Line 1066 2489 fun (_2,_1,_0) -> 2490 case <_2,_1,_0> of 2491 <{_cont,[_logh|_rest]},_log,_fun> 2492 when try 2493 let <_11> = 2494 let <_6> = 2495 case call 'erlang':'is_tuple' 2496 (_logh) of 2497 <'true'> when 'true' -> 2498 case let <_3> = 2499 call 'erlang':'tuple_size' 2500 (_logh) 2501 in call 'erlang':'=:=' 2502 (_3, 6) of 2503 <'true'> when 'true' -> 2504 case let <_4> = 2505 call 'erlang':'element' 2506 (1, _logh) 2507 in call 'erlang':'=:=' 2508 (_4, 'log_header') of 2509 <'true'> when 'true' -> 2510 let <_5> = 2511 call 'erlang':'element' 2512 (2, _logh) 2513 in call 'erlang':'==' 2514 (_5, 'dcd_log') 2515 <'false'> when 'true' -> 2516 'false' 2517 ( <_omega> when 'true' -> 2518 _omega 2519 -| ['compiler_generated'] ) 2520 end 2521 <'false'> when 'true' -> 2522 'false' 2523 ( <_omega> when 'true' -> 2524 _omega 2525 -| ['compiler_generated'] ) 2526 end 2527 <'false'> when 'true' -> 2528 'false' 2529 ( <_omega> when 'true' -> 2530 _omega 2531 -| ['compiler_generated'] ) 2532 end 2533 in ( call 'erlang':'=:=' 2534 (_6, 'true') 2535 -| ['compiler_generated'] ) 2536 in let <_12> = 2537 let <_10> = 2538 case call 'erlang':'is_tuple' 2539 (_logh) of 2540 <'true'> when 'true' -> 2541 case let <_7> = 2542 call 'erlang':'tuple_size' 2543 (_logh) 2544 in call 'erlang':'=:=' 2545 (_7, 6) of 2546 <'true'> when 'true' -> 2547 case let <_8> = 2548 call 'erlang':'element' 2549 (1, _logh) 2550 in call 'erlang':'=:=' 2551 (_8, 'log_header') of 2552 <'true'> when 'true' -> 2553 let <_9> = 2554 call 'erlang':'element' 2555 (3, _logh) 2556 in call 'erlang':'>=' 2557 (_9, [49|[46|[48]]]) 2558 <'false'> when 'true' -> 2559 'false' 2560 ( <_omega> when 'true' -> 2561 _omega 2562 -| ['compiler_generated'] ) 2563 end 2564 <'false'> when 'true' -> 2565 'false' 2566 ( <_omega> when 'true' -> 2567 _omega 2568 -| ['compiler_generated'] ) 2569 end 2570 <'false'> when 'true' -> 2571 'false' 2572 ( <_omega> when 'true' -> 2573 _omega 2574 -| ['compiler_generated'] ) 2575 end 2576 in ( call 'erlang':'=:=' 2577 (_10, 'true') 2578 -| ['compiler_generated'] ) 2579 in call 'erlang':'and' 2580 (_11, _12) 2581 of <Try> -> 2582 Try 2583 catch <T,R> -> 2584 'false' -> 2585 apply 'traverse-dcd'/3 2586 ({_cont,_rest}, _log, _fun) 2587 <{_cont,_recs},_log,_fun> when 'true' -> 2588 {_cont,_recs,_log,_fun} 2589 ( <_15,_14,_13> when 'true' -> 2590 ( primop 'match_fail' 2591 ({'function_clause',_15,_14,_13}) 2592 -| [{'function_name',{'traverse-dcd',3}}] ) 2593 -| ['compiler_generated'] ) 2594 end 2595'check_qlc_hrl'/1 = 2596 %% Line 1078 2597 fun (_0) -> 2598 case <_0> of 2599 <_config> 2600 when try 2601 let <_1> = 2602 call 'erlang':'is_list' 2603 (_config) 2604 in _1 2605 of <Try> -> 2606 Try 2607 catch <T,R> -> 2608 'false' -> 2609 let <_st> = 2610 <{'r1','false','dum'}> 2611 in do call 'erlang':'put' 2612 ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['foo']]|[['cqlc'|[['quote'|['qlc']]|[['quote'|['q']]|[['quote'|[[{'lc',1,2,3}]]]|['st']]]]]]]]}) 2613 let <_val> = 2614 <apply 'cqlc'/4 2615 ('qlc', 'q', [{'lc',1,2,3}], _st)> 2616 in case <_val> of 2617 <'foo'> when 'true' -> 2618 _val 2619 ( <_2> when 'true' -> 2620 primop 'match_fail' 2621 ({'badmatch',{_2}}) 2622 -| ['compiler_generated'] ) 2623 end 2624 ( <_5> when 'true' -> 2625 ( primop 'match_fail' 2626 ({'function_clause',_5}) 2627 -| [{'function_name',{'check_qlc_hrl',1}}] ) 2628 -| ['compiler_generated'] ) 2629 end 2630'cqlc'/4 = 2631 %% Line 1094 2632 fun (_m,_f,_as,_st) -> 2633 let <_arity> = 2634 <call 'erlang':'length' 2635 (_as)> 2636 in case _as of 2637 <[{'lc',_0,_1,_2}|_3]> 2638 when try 2639 let <_11> = 2640 call 'erlang':'=:=' 2641 (_m, 'qlc') 2642 in let <_12> = 2643 call 'erlang':'=:=' 2644 (_f, 'q') 2645 in let <_13> = 2646 call 'erlang':'<' 2647 (_arity, 3) 2648 in let <_14> = 2649 let <_10> = 2650 let <_8> = 2651 case let <_4> = 2652 call 'erlang':'element' 2653 (1, _st) 2654 in call 'erlang':'=:=' 2655 (_4, 'r1') of 2656 <'true'> when 'true' -> 2657 'true' 2658 <'false'> when 'true' -> 2659 'fail' 2660 ( <_omega> when 'true' -> 2661 _omega 2662 -| ['compiler_generated'] ) 2663 end 2664 in let <_9> = 2665 let <_6> = 2666 let <_5> = 2667 call 'erlang':'tuple_size' 2668 (_st) 2669 in call 'erlang':'=:=' 2670 (_5, 3) 2671 in let <_7> = 2672 call 'erlang':'element' 2673 (2, _st) 2674 in call 'erlang':'and' 2675 (_6, _7) 2676 in call 'erlang':'and' 2677 (_8, _9) 2678 in call 'erlang':'not' 2679 (_10) 2680 in let <_15> = 2681 call 'erlang':'and' 2682 (_11, _12) 2683 in let <_16> = 2684 call 'erlang':'and' 2685 (_15, _13) 2686 in call 'erlang':'and' 2687 (_16, _14) 2688 of <Try> -> 2689 Try 2690 catch <T,R> -> 2691 'false' -> 2692 'foo' 2693 <_17> when 'true' -> 2694 _st 2695 ( <_omega> when 'true' -> 2696 primop 'match_fail' 2697 ({'case_clause',_omega}) 2698 -| ['compiler_generated'] ) 2699 end 2700'andalso_semi'/1 = 2701 %% Line 1106 2702 fun (_0) -> 2703 case <_0> of 2704 <_config> 2705 when try 2706 let <_1> = 2707 call 'erlang':'is_list' 2708 (_config) 2709 in _1 2710 of <Try> -> 2711 Try 2712 catch <T,R> -> 2713 'false' -> 2714 do call 'erlang':'put' 2715 ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[['quote'|['ok']]|[['andalso-semi-foo'|[0]]]]]}) 2716 let <_val> = 2717 <apply 'andalso-semi-foo'/1 2718 (0)> 2719 in case <_val> of 2720 <'ok'> when 'true' -> 2721 _val 2722 ( <_2> when 'true' -> 2723 primop 'match_fail' 2724 ({'badmatch',{_2}}) 2725 -| ['compiler_generated'] ) 2726 end 2727 ( <_8> when 'true' -> 2728 ( primop 'match_fail' 2729 ({'function_clause',_8}) 2730 -| [{'function_name',{'andalso_semi',1}}] ) 2731 -| ['compiler_generated'] ) 2732 end 2733'andalso-semi-foo'/1 = 2734 %% Line 1117 2735 fun (_0) -> 2736 case <_0> of 2737 <_bar> 2738 when try 2739 let <_3> = 2740 let <_1> = 2741 case call 'erlang':'is_integer' 2742 (_bar) of 2743 <'true'> when 'true' -> 2744 call 'erlang':'=:=' 2745 (_bar, 0) 2746 <'false'> when 'true' -> 2747 'false' 2748 ( <_omega> when 'true' -> 2749 _omega 2750 -| ['compiler_generated'] ) 2751 end 2752 in let <_2> = 2753 call 'erlang':'=:=' 2754 (_bar, 1) 2755 in call 'erlang':'or' 2756 (_1, _2) 2757 in _3 2758 of <Try> -> 2759 Try 2760 catch <T,R> -> 2761 'false' -> 2762 'ok' 2763 ( <_4> when 'true' -> 2764 ( primop 'match_fail' 2765 ({'function_clause',_4}) 2766 -| [{'function_name',{'andalso-semi-foo',1}}] ) 2767 -| ['compiler_generated'] ) 2768 end 2769'andalso-semi-bar'/1 = 2770 %% Line 1121 2771 fun (_0) -> 2772 case <_0> of 2773 <_bar> 2774 when try 2775 let <_4> = 2776 let <_2> = 2777 case call 'erlang':'is_list' 2778 (_bar) of 2779 <'true'> when 'true' -> 2780 let <_1> = 2781 call 'erlang':'length' 2782 (_bar) 2783 in call 'erlang':'=:=' 2784 (_1, 3) 2785 <'false'> when 'true' -> 2786 'false' 2787 ( <_omega> when 'true' -> 2788 _omega 2789 -| ['compiler_generated'] ) 2790 end 2791 in let <_3> = 2792 call 'erlang':'=:=' 2793 (_bar, 1) 2794 in call 'erlang':'or' 2795 (_2, _3) 2796 in _4 2797 of <Try> -> 2798 Try 2799 catch <T,R> -> 2800 'false' -> 2801 'ok' 2802 ( <_5> when 'true' -> 2803 ( primop 'match_fail' 2804 ({'function_clause',_5}) 2805 -| [{'function_name',{'andalso-semi-bar',1}}] ) 2806 -| ['compiler_generated'] ) 2807 end 2808't_tuple_size'/1 = 2809 %% Line 1125 2810 fun (_0) -> 2811 case <_0> of 2812 <_config> 2813 when try 2814 let <_1> = 2815 call 'erlang':'is_list' 2816 (_config) 2817 in _1 2818 of <Try> -> 2819 Try 2820 catch <T,R> -> 2821 'false' -> 2822 do call 'erlang':'put' 2823 ('test_server_loc', {'lfe_guard_SUITE',['test-pat'|[10|[['do-tuple-size'|[{1,2,3,4}]]]]]}) 2824 let <_val> = 2825 <apply 'do-tuple-size'/1 2826 ({1,2,3,4})> 2827 in case <_val> of 2828 <10> when 'true' -> 2829 _val 2830 ( <_2> when 'true' -> 2831 primop 'match_fail' 2832 ({'badmatch',{_2}}) 2833 -| ['compiler_generated'] ) 2834 end 2835 ( <_7> when 'true' -> 2836 ( primop 'match_fail' 2837 ({'function_clause',_7}) 2838 -| [{'function_name',{'t_tuple_size',1}}] ) 2839 -| ['compiler_generated'] ) 2840 end 2841'do-tuple-size'/1 = 2842 %% Line 1139 2843 fun (_0) -> 2844 case <_0> of 2845 <_t> 2846 when try 2847 let <_2> = 2848 let <_1> = 2849 call 'erlang':'tuple_size' 2850 (_t) 2851 in call 'erlang':'=:=' 2852 (_1, 4) 2853 in _2 2854 of <Try> -> 2855 Try 2856 catch <T,R> -> 2857 'false' -> 2858 case <_t> of 2859 <{_a,_b,_c,_d}> when 'true' -> 2860 let <_lfe0> = 2861 <_a> 2862 in let <_lfe1> = 2863 <_b> 2864 in let <_lfe2> = 2865 <_c> 2866 in let <_lfe3> = 2867 <_d> 2868 in let <_4> = 2869 let <_3> = 2870 call 'erlang':'+' 2871 (_lfe0, _lfe1) 2872 in call 'erlang':'+' 2873 (_3, _lfe2) 2874 in call 'erlang':'+' 2875 (_4, _lfe3) 2876 ( <_5> when 'true' -> 2877 primop 'match_fail' 2878 ({'badmatch',{_5}}) 2879 -| ['compiler_generated'] ) 2880 end 2881 ( <_6> when 'true' -> 2882 ( primop 'match_fail' 2883 ({'function_clause',_6}) 2884 -| [{'function_name',{'do-tuple-size',1}}] ) 2885 -| ['compiler_generated'] ) 2886 end 2887'ludicrous-tuple-size'/1 = 2888 %% Line 1144 2889 fun (_0) -> 2890 case <_0> of 2891 <_t> 2892 when try 2893 let <_2> = 2894 let <_1> = 2895 call 'erlang':'tuple_size' 2896 (_t) 2897 in call 'erlang':'=:=' 2898 (_1, 40652400101488115101757819767848575661943) 2899 in _2 2900 of <Try> -> 2901 Try 2902 catch <T,R> -> 2903 'false' -> 2904 'ok' 2905 <_t> 2906 when try 2907 let <_4> = 2908 let <_3> = 2909 call 'erlang':'tuple_size' 2910 (_t) 2911 in call 'erlang':'=:=' 2912 (_3, 18446744073709551616) 2913 in _4 2914 of <Try> -> 2915 Try 2916 catch <T,R> -> 2917 'false' -> 2918 'ok' 2919 <_t> 2920 when try 2921 let <_8> = 2922 let <_6> = 2923 call 'erlang':'tuple_size' 2924 (_t) 2925 in let <_7> = 2926 let <_5> = 2927 call 'erlang':'bsl' 2928 (1, 64) 2929 in call 'erlang':'-' 2930 (_5, 1) 2931 in call 'erlang':'=:=' 2932 (_6, _7) 2933 in _8 2934 of <Try> -> 2935 Try 2936 catch <T,R> -> 2937 'false' -> 2938 'ok' 2939 <_t> 2940 when try 2941 let <_10> = 2942 let <_9> = 2943 call 'erlang':'tuple_size' 2944 (_t) 2945 in call 'erlang':'=:=' 2946 (_9, 18446744073709551615) 2947 in _10 2948 of <Try> -> 2949 Try 2950 catch <T,R> -> 2951 'false' -> 2952 'ok' 2953 <_11> when 'true' -> 2954 'error' 2955 ( <_12> when 'true' -> 2956 ( primop 'match_fail' 2957 ({'function_clause',_12}) 2958 -| [{'function_name',{'ludicrous-tuple-size',1}}] ) 2959 -| ['compiler_generated'] ) 2960 end 2961'mask-error'/1 = 2962 %% Line 1152 2963 fun (_0) -> 2964 case <_0> of 2965 <{'EXIT',{_err,_1}}> when 'true' -> 2966 _err 2967 <_else> when 'true' -> 2968 _else 2969 ( <_2> when 'true' -> 2970 ( primop 'match_fail' 2971 ({'function_clause',_2}) 2972 -| [{'function_name',{'mask-error',1}}] ) 2973 -| ['compiler_generated'] ) 2974 end 2975'binary_part'/1 = 2976 %% Line 1156 2977 fun (_0) -> 2978 case <_0> of 2979 <'doc'> when 'true' -> 2980 [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]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]] 2981 <_config> 2982 when try 2983 let <_1> = 2984 call 'erlang':'is_list' 2985 (_config) 2986 in _1 2987 of <Try> -> 2988 Try 2989 catch <T,R> -> 2990 'false' -> 2991 do call 'erlang':'put' 2992 ('test_server_loc', {'lfe_guard_SUITE',['test-pat',1,['bp-test',#{#<1>(8,1,'integer',['unsigned'|['big']]), 2993 #<2>(8,1,'integer',['unsigned'|['big']]), 2994 #<3>(8,1,'integer',['unsigned'|['big']])}#]]}) 2995 let <_val> = 2996 <apply 'bp-test'/1 2997 (#{#<1>(8,1,'integer',['unsigned'|['big']]), 2998 #<2>(8,1,'integer',['unsigned'|['big']]), 2999 #<3>(8,1,'integer',['unsigned'|['big']])}#)> 3000 in case <_val> of 3001 <1> when 'true' -> 3002 _val 3003 ( <_2> when 'true' -> 3004 primop 'match_fail' 3005 ({'badmatch',{_2}}) 3006 -| ['compiler_generated'] ) 3007 end 3008 ( <_53> when 'true' -> 3009 ( primop 'match_fail' 3010 ({'function_clause',_53}) 3011 -| [{'function_name',{'binary_part',1}}] ) 3012 -| ['compiler_generated'] ) 3013 end 3014'bp-test'/1 = 3015 %% Line 1225 3016 fun (_0) -> 3017 case <_0> of 3018 <_b> 3019 when try 3020 let <_2> = 3021 let <_1> = 3022 call 'erlang':'length' 3023 (_b) 3024 in call 'erlang':'=:=' 3025 (_1, 137) 3026 in _2 3027 of <Try> -> 3028 Try 3029 catch <T,R> -> 3030 'false' -> 3031 1 3032 <_b> 3033 when try 3034 let <_4> = 3035 let <_3> = 3036 call 'erlang':'binary_part' 3037 (_b, {1,1}) 3038 in call 'erlang':'=:=' 3039 (_3, #{#<2>(8,1,'integer',['unsigned'|['big']])}#) 3040 in _4 3041 of <Try> -> 3042 Try 3043 catch <T,R> -> 3044 'false' -> 3045 1 3046 <_b> 3047 when try 3048 let <_6> = 3049 let <_5> = 3050 call 'erlang':'binary_part' 3051 (_b, 1, 1) 3052 in call 'erlang':'=:=' 3053 (_5, #{#<1>(8,1,'integer',['unsigned'|['big']])}#) 3054 in _6 3055 of <Try> -> 3056 Try 3057 catch <T,R> -> 3058 'false' -> 3059 2 3060 <_b> 3061 when try 3062 let <_8> = 3063 let <_7> = 3064 call 'erlang':'binary_part' 3065 (_b, {1,2}) 3066 in call 'erlang':'=:=' 3067 (_7, #{#<3>(8,1,'integer',['unsigned'|['big']]), 3068 #<3>(8,1,'integer',['unsigned'|['big']])}#) 3069 in _8 3070 of <Try> -> 3071 Try 3072 catch <T,R> -> 3073 'false' -> 3074 3 3075 <_9> when 'true' -> 3076 'error' 3077 ( <_10> when 'true' -> 3078 ( primop 'match_fail' 3079 ({'function_clause',_10}) 3080 -| [{'function_name',{'bp-test',1}}] ) 3081 -| ['compiler_generated'] ) 3082 end 3083'bp-test'/2 = 3084 %% Line 1232 3085 fun (_1,_0) -> 3086 case <_1,_0> of 3087 <_b,_a> 3088 when try 3089 let <_3> = 3090 let <_2> = 3091 call 'erlang':'length' 3092 (_b) 3093 in call 'erlang':'=:=' 3094 (_2, _a) 3095 in _3 3096 of <Try> -> 3097 Try 3098 catch <T,R> -> 3099 'false' -> 3100 1 3101 <_b,_a> 3102 when try 3103 let <_5> = 3104 let <_4> = 3105 call 'erlang':'binary_part' 3106 (_b, {_a,1}) 3107 in call 'erlang':'=:=' 3108 (_4, #{#<2>(8,1,'integer',['unsigned'|['big']])}#) 3109 in _5 3110 of <Try> -> 3111 Try 3112 catch <T,R> -> 3113 'false' -> 3114 1 3115 <_b,_a> 3116 when try 3117 let <_7> = 3118 let <_6> = 3119 call 'erlang':'binary_part' 3120 (_b, _a, 1) 3121 in call 'erlang':'=:=' 3122 (_6, #{#<1>(8,1,'integer',['unsigned'|['big']])}#) 3123 in _7 3124 of <Try> -> 3125 Try 3126 catch <T,R> -> 3127 'false' -> 3128 2 3129 <_b,_a> 3130 when try 3131 let <_9> = 3132 let <_8> = 3133 call 'erlang':'binary_part' 3134 (_b, {_a,2}) 3135 in call 'erlang':'=:=' 3136 (_8, #{#<3>(8,1,'integer',['unsigned'|['big']]), 3137 #<3>(8,1,'integer',['unsigned'|['big']])}#) 3138 in _9 3139 of <Try> -> 3140 Try 3141 catch <T,R> -> 3142 'false' -> 3143 3 3144 <_10,_11> when 'true' -> 3145 'error' 3146 ( <_13,_12> when 'true' -> 3147 ( primop 'match_fail' 3148 ({'function_clause',_13,_12}) 3149 -| [{'function_name',{'bp-test',2}}] ) 3150 -| ['compiler_generated'] ) 3151 end 3152'bp-test-x'/2 = 3153 %% Line 1239 3154 fun (_1,_0) -> 3155 case <_1,_0> of 3156 <_b,_a> 3157 when try 3158 let <_3> = 3159 let <_2> = 3160 call 'erlang':'length' 3161 (_b) 3162 in call 'erlang':'=:=' 3163 (_2, _a) 3164 in _3 3165 of <Try> -> 3166 Try 3167 catch <T,R> -> 3168 'false' -> 3169 1 3170 <_b,_a> 3171 when try 3172 let <_5> = 3173 let <_4> = 3174 call 'erlang':'binary_part' 3175 (_b, _a) 3176 in call 'erlang':'=:=' 3177 (_4, #{#<2>(8,1,'integer',['unsigned'|['big']])}#) 3178 in _5 3179 of <Try> -> 3180 Try 3181 catch <T,R> -> 3182 'false' -> 3183 1 3184 <_b,_a> 3185 when try 3186 let <_7> = 3187 let <_6> = 3188 call 'erlang':'binary_part' 3189 (_b, _a) 3190 in call 'erlang':'=:=' 3191 (_6, #{#<1>(8,1,'integer',['unsigned'|['big']])}#) 3192 in _7 3193 of <Try> -> 3194 Try 3195 catch <T,R> -> 3196 'false' -> 3197 2 3198 <_b,_a> 3199 when try 3200 let <_9> = 3201 let <_8> = 3202 call 'erlang':'binary_part' 3203 (_b, _a) 3204 in call 'erlang':'=:=' 3205 (_8, #{#<3>(8,1,'integer',['unsigned'|['big']]), 3206 #<3>(8,1,'integer',['unsigned'|['big']])}#) 3207 in _9 3208 of <Try> -> 3209 Try 3210 catch <T,R> -> 3211 'false' -> 3212 3 3213 <_10,_11> when 'true' -> 3214 'error' 3215 ( <_13,_12> when 'true' -> 3216 ( primop 'match_fail' 3217 ({'function_clause',_13,_12}) 3218 -| [{'function_name',{'bp-test-x',2}}] ) 3219 -| ['compiler_generated'] ) 3220 end 3221'bp-test-y'/2 = 3222 %% Line 1246 3223 fun (_1,_0) -> 3224 case <_1,_0> of 3225 <_b,_a> 3226 when try 3227 let <_3> = 3228 let <_2> = 3229 call 'erlang':'length' 3230 (_b) 3231 in call 'erlang':'=:=' 3232 (_2, _a) 3233 in _3 3234 of <Try> -> 3235 Try 3236 catch <T,R> -> 3237 'false' -> 3238 1 3239 <_b,_a> 3240 when try 3241 let <_5> = 3242 let <_4> = 3243 call 'erlang':'binary_part' 3244 (_b, {1,_a}) 3245 in call 'erlang':'=:=' 3246 (_4, #{#<2>(8,1,'integer',['unsigned'|['big']])}#) 3247 in _5 3248 of <Try> -> 3249 Try 3250 catch <T,R> -> 3251 'false' -> 3252 1 3253 <_b,_a> 3254 when try 3255 let <_7> = 3256 let <_6> = 3257 call 'erlang':'binary_part' 3258 (_b, 1, _a) 3259 in call 'erlang':'=:=' 3260 (_6, #{#<1>(8,1,'integer',['unsigned'|['big']])}#) 3261 in _7 3262 of <Try> -> 3263 Try 3264 catch <T,R> -> 3265 'false' -> 3266 2 3267 <_b,_a> 3268 when try 3269 let <_9> = 3270 let <_8> = 3271 call 'erlang':'binary_part' 3272 (_b, {1,_a}) 3273 in call 'erlang':'=:=' 3274 (_8, #{#<3>(8,1,'integer',['unsigned'|['big']]), 3275 #<3>(8,1,'integer',['unsigned'|['big']])}#) 3276 in _9 3277 of <Try> -> 3278 Try 3279 catch <T,R> -> 3280 'false' -> 3281 3 3282 <_10,_11> when 'true' -> 3283 'error' 3284 ( <_13,_12> when 'true' -> 3285 ( primop 'match_fail' 3286 ({'function_clause',_13,_12}) 3287 -| [{'function_name',{'bp-test-y',2}}] ) 3288 -| ['compiler_generated'] ) 3289 end 3290'bp-test'/3 = 3291 %% Line 1253 3292 fun (_2,_1,_0) -> 3293 case <_2,_1,_0> of 3294 <_b,_a,_3> 3295 when try 3296 let <_5> = 3297 let <_4> = 3298 call 'erlang':'length' 3299 (_b) 3300 in call 'erlang':'=:=' 3301 (_4, _a) 3302 in _5 3303 of <Try> -> 3304 Try 3305 catch <T,R> -> 3306 'false' -> 3307 1 3308 <_b,_a,_c> 3309 when try 3310 let <_7> = 3311 let <_6> = 3312 call 'erlang':'binary_part' 3313 (_b, {_a,_c}) 3314 in call 'erlang':'=:=' 3315 (_6, #{#<2>(8,1,'integer',['unsigned'|['big']])}#) 3316 in _7 3317 of <Try> -> 3318 Try 3319 catch <T,R> -> 3320 'false' -> 3321 1 3322 <_b,_a,_c> 3323 when try 3324 let <_9> = 3325 let <_8> = 3326 call 'erlang':'binary_part' 3327 (_b, _a, _c) 3328 in call 'erlang':'=:=' 3329 (_8, #{#<1>(8,1,'integer',['unsigned'|['big']])}#) 3330 in _9 3331 of <Try> -> 3332 Try 3333 catch <T,R> -> 3334 'false' -> 3335 2 3336 <_b,_a,_c> 3337 when try 3338 let <_11> = 3339 let <_10> = 3340 call 'erlang':'binary_part' 3341 (_b, {_a,_c}) 3342 in call 'erlang':'=:=' 3343 (_10, #{#<3>(8,1,'integer',['unsigned'|['big']]), 3344 #<3>(8,1,'integer',['unsigned'|['big']])}#) 3345 in _11 3346 of <Try> -> 3347 Try 3348 catch <T,R> -> 3349 'false' -> 3350 3 3351 <_12,_13,_14> when 'true' -> 3352 'error' 3353 ( <_17,_16,_15> when 'true' -> 3354 ( primop 'match_fail' 3355 ({'function_clause',_17,_16,_15}) 3356 -| [{'function_name',{'bp-test',3}}] ) 3357 -| ['compiler_generated'] ) 3358 end 3359'id'/1 = 3360 %% Line 1262 3361 fun (_i) -> 3362 _i 3363'check'/2 = 3364 %% Line 1264 3365 fun (_f,_result) -> 3366 case apply _f 3367 () of 3368 <_r> 3369 when try 3370 let <_0> = 3371 call 'erlang':'=:=' 3372 (_r, _result) 3373 in _0 3374 of <Try> -> 3375 Try 3376 catch <T,R> -> 3377 'false' -> 3378 'ok' 3379 <_other> when 'true' -> 3380 do call 'lfe_io':'format' 3381 ([69|[120|[112|[101|[99|[116|[101|[100|[58|[32|[126|[112|[10]]]]]]]]]]]]], [_result]) 3382 do call 'lfe_io':'format' 3383 ([32|[32|[32|[32|[32|[71|[111|[116|[58|[32|[126|[112|[10]]]]]]]]]]]]], [_other]) 3384 call 'test_server':'fail' 3385 () 3386 ( <_omega> when 'true' -> 3387 primop 'match_fail' 3388 ({'case_clause',_omega}) 3389 -| ['compiler_generated'] ) 3390 end 3391'fc'/1 = 3392 %% Line 1272 3393 fun (_0) -> 3394 case <_0> of 3395 <{'EXIT',{'function_clause'}}> when 'true' -> 3396 'ok' 3397 <{'EXIT',{{'case_clause',_1},_2}}> when 'true' -> 3398 'ok' 3399 ( <_3> when 'true' -> 3400 ( primop 'match_fail' 3401 ({'function_clause',_3}) 3402 -| [{'function_name',{'fc',1}}] ) 3403 -| ['compiler_generated'] ) 3404 end 3405'$handle_undefined_function'/2 = 3406 %% Line 29 3407 fun (_f,_as) -> 3408 case let <_0> = 3409 call 'lfe_env':'new' 3410 () 3411 in apply 'LFE-EXPAND-EXPORTED-MACRO'/3 3412 (_f, _as, _0) of 3413 <{'yes',_exp}> when 'true' -> 3414 call 'lfe_eval':'expr' 3415 (_exp) 3416 <'no'> when 'true' -> 3417 let <_a,_b> = 3418 <_f,_as> 3419 in call 'error_handler':'raise_undef_exception' 3420 ('lfe_guard_SUITE', _a, _b) 3421 ( <_omega> when 'true' -> 3422 primop 'match_fail' 3423 ({'case_clause',_omega}) 3424 -| ['compiler_generated'] ) 3425 end 3426'LFE-EXPAND-EXPORTED-MACRO'/3 = 3427 %% Line 29 3428 fun (_2,_1,_0) -> 3429 'no' 3430'module_info'/0 = 3431 fun () -> 3432 call 'erlang':'get_module_info' 3433 ('lfe_guard_SUITE') 3434'module_info'/1 = 3435 fun (_x) -> 3436 call 'erlang':'get_module_info' 3437 ('lfe_guard_SUITE', _x) 3438end 3439