// File: /workspace/github_c_makefile_star2_O0/azhai[P]mlite/mlite.c
// Function: make_initial_env
void make_initial_env(void) {
	cell	new;

	Environment = node(NIL, NIL);
	Environment = extend(symbol_ref("it"), NIL, Environment);
	S_it = cadr(Environment);
	Environment = extend(symbol_ref("*extensions*"), NIL, Environment);
	S_extensions = cadr(Environment);
	Environment = extend(symbol_ref("*library-path*"), NIL, Environment);
	S_library_path = cadr(Environment);
	set(box_value(S_library_path), get_library_path());
	Environment = extend(symbol_ref("*loading*"), FALSE, Environment);
	S_loading = cadr(Environment);
	Callcc_magic = -1;
	Last_prim = 0;
	Max_prims = 0;
	grow_primitives();
	add_primitives(NULL, Core_primitives);
	Environment = node(Environment, NIL);
	Program = TRUE; /* or rehash() will not work */
	rehash(car(Environment));
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x10, %rsp
movq $-0x1, %rsi
xorl %edx, %edx
movq %rsi, %rdi
callq 0x3780
movq %rax, 0x9398(%rip)      # 0x28118
leaq 0x1589(%rip), %rdi      # 0x20310
callq 0x9420
movq %rax, %rdi
movq 0x9382(%rip), %rdx      # 0x28118
movq $-0x1, %rsi
callq 0x127f0
movq %rax, 0x936f(%rip)      # 0x28118
movq 0x93d0(%rip), %rax      # 0x28180
movq 0x9819(%rip), %rcx      # 0x285d0
movq 0x935a(%rip), %rdx      # 0x28118
movq (%rcx,%rdx,8), %rcx
movq (%rax,%rcx,8), %rax
movq %rax, 0x9e33(%rip)      # 0x28c00
leaq 0x2765(%rip), %rdi      # 0x21539
callq 0x9420
movq %rax, %rdi
movq 0x9335(%rip), %rdx      # 0x28118
movq $-0x1, %rsi
callq 0x127f0
movq %rax, 0x9322(%rip)      # 0x28118
movq 0x9383(%rip), %rax      # 0x28180
movq 0x97cc(%rip), %rcx      # 0x285d0
movq 0x930d(%rip), %rdx      # 0x28118
movq (%rcx,%rdx,8), %rcx
movq (%rax,%rcx,8), %rax
movq %rax, 0x9df6(%rip)      # 0x28c10
leaq 0x2725(%rip), %rdi      # 0x21546
callq 0x9420
movq %rax, %rdi
movq 0x92e8(%rip), %rdx      # 0x28118
movq $-0x1, %rsi
callq 0x127f0
movq %rax, 0x92d5(%rip)      # 0x28118
movq 0x9336(%rip), %rax      # 0x28180
movq 0x977f(%rip), %rcx      # 0x285d0
movq 0x92c0(%rip), %rdx      # 0x28118
movq (%rcx,%rdx,8), %rcx
movq (%rax,%rcx,8), %rax
movq %rax, 0x9db1(%rip)      # 0x28c18
callq 0x1e760
movq %rax, -0x8(%rbp)
movq -0x8(%rbp), %rdx
movq 0x9755(%rip), %rax      # 0x285d0
movq 0x9d96(%rip), %rcx      # 0x28c18
movq %rdx, (%rax,%rcx,8)
leaq 0x26c8(%rip), %rdi      # 0x21555
callq 0x9420
movq %rax, %rdi
movq 0x927c(%rip), %rdx      # 0x28118
movq $-0x3, %rsi
callq 0x127f0
movq %rax, 0x9269(%rip)      # 0x28118
movq 0x92ca(%rip), %rax      # 0x28180
movq 0x9713(%rip), %rcx      # 0x285d0
movq 0x9254(%rip), %rdx      # 0x28118
movq (%rcx,%rdx,8), %rcx
movq (%rax,%rcx,8), %rax
movq %rax, 0x9705(%rip)      # 0x285d8
movq $-0x1, 0x9d1a(%rip) # 0x28bf8
movl $0x0, 0x9d38(%rip)      # 0x28c20
movl $0x0, 0x9d32(%rip)      # 0x28c24
callq 0x1eb60
xorl %eax, %eax
movl %eax, %edi
leaq 0x841e(%rip), %rsi      # 0x27320
callq 0x1ebb0
movq 0x920a(%rip), %rdi      # 0x28118
movq $-0x1, %rsi
xorl %edx, %edx
callq 0x3780
movq %rax, 0x91f5(%rip)      # 0x28118
movq $-0x2, 0x91da(%rip) # 0x28108
movq 0x924b(%rip), %rax      # 0x28180
movq 0x91dc(%rip), %rcx      # 0x28118
movq (%rax,%rcx,8), %rdi
callq 0x12600
addq $0x10, %rsp
popq %rbp
retq
nopl (%rax,%rax)