// File: /workspace/github_c_makefile_star2_O1/johsteffens[P]beth/lib/bcore/bcore.xo.c
// Function: x_btcl_frame_s_eval_op_func_list_unfold
er_t x_btcl_frame_s_eval_op_func_list_unfold( x_btcl_frame_s* o, s2_t op_priority, x_source* source, sr_s* sr )
{
    // bcore_x_btcl_op.x:247:1
    BLM_INIT_LEVEL(0);
    sr_s sb;BLM_T_INIT_SPUSH(sr_s, &sb);; BLM_TRY(x_btcl_frame_s_eval(o,op_priority, source,&( sb )))
    
    if( sr_s_type(sr) == ((tp_t)(TYPEOF_x_btcl_function_s)) && sr_s_type(&(sb)) == ((tp_t)(TYPEOF_x_btcl_list_s)) )
    {BLM_INIT_LEVEL(1);
        x_btcl_function_s* f = ((x_btcl_function_s*)BLM_LEVEL_T_PUSH(1,x_btcl_function_s,((x_btcl_function_s*)bcore_fork(((x_btcl_function_s*)(sr->o))))));
        x_btcl_list_s* list = ((x_btcl_list_s*)BLM_LEVEL_T_PUSH(1,x_btcl_list_s,((x_btcl_list_s*)bcore_fork(((x_btcl_list_s*)(sb.o))))));
        BLM_TRY(x_btcl_function_s_call_via_arg_list(f,x_source_point_s__(((x_source_point_s*)BLM_LEVEL_T_PUSH(1,x_source_point_s,x_source_point_s_create())),source ), o, list, sr ))
        BLM_RETURNV(er_t, 0)
    BLM_DOWN();}
    
    BLM_RETURNV(er_t, x_source_parse_error_fa(source,"Operator #<sc_t> * #<sc_t> is not defined.\n", bnameof( sr_s_o_type(sr) ), bnameof( sr_s_o_type(&(sb)) ) ))
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x88, %rsp
movq %rcx, %r15
movq %rdx, %rbx
movl %esi, %ebp
movq %rdi, %r12
leaq 0x1176e1(%rip), %rax    # 0x1a8dd0
movq (%rax), %rsi
leaq 0x28(%rsp), %r14
movq %r14, %rdi
callq 0xe0431
movq $0x0, 0x10(%r14)
leaq 0x10(%rsp), %r13
movq %r13, %rdi
callq 0x112ba5
movabsq $0x79b76918ff0af12a, %rsi # imm = 0x79B76918FF0AF12A
movq %r14, %rdi
movq %r13, %rdx
callq 0xe06ab
movq %r12, %rdi
movl %ebp, %esi
movq %rbx, %rdx
movq %r13, %rcx
callq 0x88ece
movq %rax, %r14
testq %rax, %rax
jne 0x918ad
testq %r15, %r15
je 0x91872
movq 0x8(%r15), %rax
testq %rax, %rax
je 0x9185e
movabsq $-0x19831b480b40fba0, %rbp # imm = 0xE67CE4B7F4BF0460
cmpq %rbp, 0x8(%rax)
jne 0x9185e
movq 0x18(%rsp), %rax
testq %rax, %rax
je 0x9185e
movabsq $-0x240ec4eb25c1f3e8, %rcx # imm = 0xDBF13B14DA3E0C18
cmpq %rcx, 0x8(%rax)
jne 0x9185e
leaq 0x58(%rsp), %r13
leaq 0x28(%rsp), %rsi
movq %r13, %rdi
callq 0xe0431
movq $0x1, 0x10(%r13)
movq (%r15), %rdi
callq 0xc8348
movl $0x1, %esi
movq %r13, %rdi
movq %rbp, %rdx
movq %rax, %rcx
callq 0xe0676
movq %rax, 0x8(%rsp)
movq 0x10(%rsp), %rdi
callq 0xc8348
movl $0x1, %esi
movq %r13, %rdi
movabsq $-0x240ec4eb25c1f3e8, %rdx # imm = 0xDBF13B14DA3E0C18
movq %rax, %rcx
callq 0xe0676
movq %rax, %rbp
callq 0x59ec4
movabsq $0x717ff038b7471b82, %rdx # imm = 0x717FF038B7471B82
movl $0x1, %esi
movq %r13, %rdi
movq %rax, %rcx
callq 0xe0676
movq %rax, %r13
movq %rax, %rdi
movq %rbx, %rsi
callq 0x8c9dc
movq 0x8(%rsp), %rdi
movq %r13, %rsi
movq %r12, %rdx
movq %rbp, %rcx
movq %r15, %r8
callq 0x918cc
movq %rax, %rbx
testq %rax, %rax
je 0x9184a
leaq 0x58(%rsp), %rdi
callq 0xe0b30
movq %rbx, %r14
testq %rbx, %rbx
jne 0x918b7
leaq 0x58(%rsp), %rdi
callq 0xe0b30
xorl %r14d, %r14d
jmp 0x918b7
testq %r15, %r15
je 0x91872
movq 0x8(%r15), %rax
testq %rax, %rax
je 0x91872
movq 0x8(%rax), %rdi
jmp 0x91874
xorl %edi, %edi
callq 0xe0cbc
movq %rax, %r14
movq 0x18(%rsp), %rax
testq %rax, %rax
je 0x9188c
movq 0x8(%rax), %rdi
jmp 0x9188e
xorl %edi, %edi
callq 0xe0cbc
leaq 0xb2333(%rip), %rsi     # 0x143bcd
movq %rbx, %rdi
movq %r14, %rdx
movq %rax, %rcx
xorl %eax, %eax
callq 0x77b7c
movq %rax, %r14
leaq 0x28(%rsp), %rdi
callq 0xe0b30
movq %r14, %rax
addq $0x88, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq