// File: /workspace/github_c_makefile_star2_O0/dalnefre[P]kernel_abe/schemer.c
// Function: apply_set_beh
BEH_DECL(apply_set_beh)
{
	CONS* value = WHAT;
	CONS* to;
	CONS* name;
	CONS* env;
	CONS* p = MINE;
	CONS* msg;

	DBUG_ENTER("apply_set_beh");
	to = pr_head(p);
	p = pr_tail(p);
	name = pr_head(p);
	DBUG_PRINT("", ("name = %s", cons_to_str(name)));
	DBUG_PRINT("", ("value = %s", cons_to_str(value)));
	env = pr_tail(p);
	msg = mk_empty();
	msg = mk_list(value, msg);
	msg = mk_list(name, msg);
	msg = mk_list(ATOM("set!"), msg);
	msg = mk_pair(msg, env);
	msg = mk_pair(to, msg);
	SEND(env, msg);
	DBUG_RETURN;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x60, %rsp
movq %rdi, -0x8(%rbp)
movq -0x8(%rbp), %rax
movq 0x30(%rax), %rdi
callq 0x1c340
movq %rax, -0x10(%rbp)
movq -0x8(%rbp), %rax
movq 0x30(%rax), %rdi
callq 0x1c1b0
movq %rax, %rdi
callq 0x11430
movq %rax, -0x30(%rbp)
leaq 0x191da(%rip), %rax     # 0x20287
movq %rax, -0x60(%rbp)
leaq 0x1f258(%rip), %rax     # 0x26310
movq (%rax), %rax
movq 0x50(%rax), %rax
movl 0x8(%rax), %eax
movl %eax, -0x58(%rbp)
movl $0x3a6, -0x54(%rbp)     # imm = 0x3A6
leaq 0x1bab9(%rip), %rax     # 0x22b8c
movq %rax, -0x50(%rbp)
leaq 0x1f052(%rip), %rax     # 0x26130
movq %rax, -0x48(%rbp)
leaq 0x1f227(%rip), %rax     # 0x26310
movq (%rax), %rax
movq 0x50(%rax), %rax
movq %rax, -0x40(%rbp)
leaq -0x60(%rbp), %rdi
callq 0x1f2c0
movq -0x30(%rbp), %rdi
callq 0x1c1b0
movq %rax, -0x18(%rbp)
movq -0x30(%rbp), %rdi
callq 0x1c340
movq %rax, -0x30(%rbp)
movq -0x30(%rbp), %rdi
callq 0x1c1b0
movq %rax, -0x20(%rbp)
leaq 0x1f7b5(%rip), %rax     # 0x268e0
cmpl $0x0, (%rax)
je 0x7189
leaq 0x1f1d9(%rip), %rax     # 0x26310
movq (%rax), %rax
movq 0x50(%rax), %rax
leaq 0x1ba47(%rip), %rcx     # 0x22b8c
movq %rcx, 0x10(%rax)
leaq 0x1ba3c(%rip), %rdi     # 0x22b8c
callq 0x1e6d0
cmpl $0x0, %eax
je 0x7189
leaq 0x1f1af(%rip), %rax     # 0x26310
movq (%rax), %rax
movq 0x50(%rax), %rax
movl $0x3aa, 0xc(%rax)       # imm = 0x3AA
movq -0x20(%rbp), %rdi
callq 0x14080
movq %rax, %rsi
leaq 0x18f18(%rip), %rdi     # 0x2009a
movb $0x0, %al
callq 0x1f370
jmp 0x718b
jmp 0x718d
leaq 0x1f74c(%rip), %rax     # 0x268e0
cmpl $0x0, (%rax)
je 0x71f2
leaq 0x1f170(%rip), %rax     # 0x26310
movq (%rax), %rax
movq 0x50(%rax), %rax
leaq 0x1b9de(%rip), %rcx     # 0x22b8c
movq %rcx, 0x10(%rax)
leaq 0x1b9d3(%rip), %rdi     # 0x22b8c
callq 0x1e6d0
cmpl $0x0, %eax
je 0x71f2
leaq 0x1f146(%rip), %rax     # 0x26310
movq (%rax), %rax
movq 0x50(%rax), %rax
movl $0x3ab, 0xc(%rax)       # imm = 0x3AB
movq -0x10(%rbp), %rdi
callq 0x14080
movq %rax, %rsi
leaq 0x18eb9(%rip), %rdi     # 0x200a4
movb $0x0, %al
callq 0x1f370
jmp 0x71f4
movq -0x30(%rbp), %rdi
callq 0x1c340
movq %rax, -0x28(%rbp)
leaq 0x1f078(%rip), %rax     # 0x26280
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
movq -0x38(%rbp), %rsi
callq 0x1c0c0
movq %rax, -0x38(%rbp)
movq -0x20(%rbp), %rdi
movq -0x38(%rbp), %rsi
callq 0x1c0c0
movq %rax, -0x38(%rbp)
leaq 0x18e81(%rip), %rdi     # 0x200b6
callq 0x18510
movq %rax, %rdi
movq -0x38(%rbp), %rsi
callq 0x1c0c0
movq %rax, -0x38(%rbp)
movq -0x38(%rbp), %rdi
movq -0x28(%rbp), %rsi
callq 0x1c0c0
movq %rax, -0x38(%rbp)
movq -0x18(%rbp), %rdi
movq -0x38(%rbp), %rsi
callq 0x1c0c0
movq %rax, -0x38(%rbp)
movq -0x8(%rbp), %rdi
movq -0x28(%rbp), %rsi
movq -0x38(%rbp), %rdx
callq 0x12640
movl $0x3b4, -0x54(%rbp)     # imm = 0x3B4
leaq -0x60(%rbp), %rdi
callq 0x1f490
addq $0x60, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)