// File: /workspace/github_c_makefile_star2_O2/azhai[P]mlite/mlite.c
// Function: infix_decl
cell infix_decl(int fix) {
	cell	mode;
	int	p, a;

	Token = scan();
	for (;;) {
		if (Token != TOK_ID)
			return error("identifier expected in fix def",
					NOEXPR);
		save(Attr);
		Token = scan();
		if (fix == NONE) {
			if (symbol_p(car(Stack)))
				delfixity(car(Stack));
		}
		else {
			delfixity(car(Stack));
			if (	Attr == S_less ||
				Attr == S_greater ||
				Attr == S_equal
			) {
				mode = Attr;
				Token = scan();
			}
			else {
				unsave(1);
				return error(
					"fix def expected one of {<,=,>}",
					NOEXPR);
			}
			if (Token == TOK_CONS) {
				Attr = S_cons;
			}
			else if (Token != TOK_ID) {
				unsave(1);
				return error(
				 "reference identifier expected in fix def",
					NOEXPR);
			}
			if (	symbol_p(Attr) &&
				!find_binop(symbol_name(Attr), &p, &a)
			) {
				unsave(1);
				return error(
				 "invalid reference identifier in fix def",
					Attr);
			}
			else {
				if (symbol_p(car(Stack)))
					setfixity(car(Stack),
						symbol_name(Attr),
						fix,
						mode);
			}
			Token = scan();
		}
		unsave(1);
		if (Token != TOK_COMMA)
			break;
		Token = scan();
	}
	return UNIT;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %edi, %r14d
callq 0x8d74
pushq $0x1
popq %r15
pushq $-0x6
popq %rbx
leaq -0x2c(%rbp), %r13
movl %eax, 0x103d7(%rip)     # 0x1c6d0
cmpl $0xfffffed1, %eax       # imm = 0xFFFFFED1
jne 0xc491
movq 0xfe4d(%rip), %rdi      # 0x1c158
movq 0xfe16(%rip), %rsi      # 0x1c128
xorl %edx, %edx
callq 0x3613
movq %rax, 0xfe08(%rip)      # 0x1c128
callq 0x8d74
movl %eax, 0x103a5(%rip)     # 0x1c6d0
movq 0xfe3e(%rip), %rax      # 0x1c170
movq 0xfdef(%rip), %rcx      # 0x1c128
movq (%rax,%rcx,8), %rdi
testl %r14d, %r14d
je 0xc398
callq 0xc125
movq 0xfe0a(%rip), %r12      # 0x1c158
cmpq 0x10423(%rip), %r12     # 0x1c778
je 0xc36d
cmpq 0x10422(%rip), %r12     # 0x1c780
je 0xc36d
cmpq 0x10391(%rip), %r12     # 0x1c6f8
jne 0xc49a
callq 0x8d74
movl %eax, 0x10358(%rip)     # 0x1c6d0
cmpl $0xfffffed1, %eax       # imm = 0xFFFFFED1
je 0xc3c7
cmpl $-0x67, %eax
jne 0xc4ab
movq 0x10301(%rip), %rax     # 0x1c690
movq %rax, 0xfdc2(%rip)      # 0x1c158
jmp 0xc3ce
testq %rdi, %rdi
js 0xc476
movq 0x10238(%rip), %rcx     # 0x1c5e0
testb $0x10, (%rcx,%rdi)
je 0xc476
cmpq $-0x22, (%rax,%rdi,8)
jne 0xc476
callq 0xc125
jmp 0xc476
movq 0xfd8a(%rip), %rax      # 0x1c158
testq %rax, %rax
js 0xc418
movq 0x10206(%rip), %rcx     # 0x1c5e0
testb $0x10, (%rcx,%rax)
je 0xc418
movq 0xfd89(%rip), %rcx      # 0x1c170
cmpq $-0x22, (%rcx,%rax,8)
jne 0xc418
movq 0x101cb(%rip), %rcx     # 0x1c5c0
movq (%rcx,%rax,8), %rdi
shlq $0x3, %rdi
addq 0x101e4(%rip), %rdi     # 0x1c5e8
leaq -0x30(%rbp), %rsi
movq %r13, %rdx
callq 0x88b3
testl %eax, %eax
je 0xc4d7
movq 0xfd51(%rip), %rax      # 0x1c170
movq 0xfd02(%rip), %rcx      # 0x1c128
movq (%rax,%rcx,8), %rdi
testq %rdi, %rdi
js 0xc46b
movq 0x101aa(%rip), %rcx     # 0x1c5e0
testb $0x10, (%rcx,%rdi)
je 0xc46b
cmpq $-0x22, (%rax,%rdi,8)
jne 0xc46b
movq 0x10176(%rip), %rax     # 0x1c5c0
movq 0xfd07(%rip), %rcx      # 0x1c158
movq (%rax,%rcx,8), %rsi
shlq $0x3, %rsi
addq 0x10188(%rip), %rsi     # 0x1c5e8
movl %r14d, %edx
movl %r12d, %ecx
callq 0xc17d
callq 0x8d74
movl %eax, 0x1025a(%rip)     # 0x1c6d0
movl %r15d, %edi
callq 0x3775
cmpl $-0x64, 0x1024b(%rip)   # 0x1c6d0
jne 0xc4c5
callq 0x8d74
jmp 0xc2f3
leaq 0x8549(%rip), %rdi      # 0x149e1
jmp 0xc4ba
pushq $0x1
popq %rdi
callq 0x3775
leaq 0x850e(%rip), %rdi      # 0x149b7
jmp 0xc4ba
pushq $0x1
popq %rdi
callq 0x3775
leaq 0x851d(%rip), %rdi      # 0x149d7
pushq $-0x8
popq %rsi
callq 0x33e4
pushq $-0x5
popq %rbx
movq %rbx, %rax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
pushq $0x1
popq %rdi
callq 0x3775
movq 0xfc72(%rip), %rsi      # 0x1c158
leaq 0x8513(%rip), %rdi      # 0x14a00
jmp 0xc4bd