// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: op_let
static bool op_let(s7_scheme *sc)
                {
                    /* sc->code is everything after the let: (let ((a 1)) a) so sc->code is (((a 1)) a) */
                    /*   car can be either a list or a symbol ("named let") */
                    bool named_let;
                    set_current_code(sc, sc->code);
                    check_let(sc);
                    sc->args = sc->nil;
                    sc->value = sc->code;
                    named_let = is_symbol(car(sc->code));

                    sc->code = (named_let) ? cadr(sc->code) : car(sc->code);
                    if (is_null(sc->code))                    /* (let [name] () ...):  no bindings, so skip that step */
                    {
                        sc->code = sc->value;
                        new_frame(sc, sc->envir, sc->envir);
                        if (named_let)  /* see also below -- there are 3 cases */
                        {
                            s7_pointer body;
                            body = cddr(sc->code);
                            sc->x = make_closure(sc, sc->nil, body, T_CLOSURE | T_COPY_ARGS, 0);
                            /* args = () in new closure, see NAMED_LET_NO_VARS above */
                            /* if this is a safe closure, we can build its env in advance and name it (a thunk in this case) */
                            set_funclet(closure_let(sc->x));
                            funclet_set_function(closure_let(sc->x), car(sc->code));
                            make_slot_1(sc, sc->envir, car(sc->code), sc->x);
                            sc->code = T_Pair(body);
                            sc->x = sc->nil;
                        }
                        else sc->code = T_Pair(cdr(sc->code));
                        return(true);
                    }
                    return(op_let1(sc));
                }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq (%rax), %rcx
movq 0x28(%rsp), %rax
movq %rcx, 0x28(%rax)
movq 0x28(%rsp), %rdi
callq 0x194f80
movq 0x28(%rsp), %rax
movq 0x110(%rax), %rcx
movq 0x28(%rsp), %rax
movq %rcx, 0x10(%rax)
movq 0x28(%rsp), %rax
movq (%rax), %rcx
movq 0x28(%rsp), %rax
movq %rcx, 0x20(%rax)
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x8(%rax), %rax
movzbl (%rax), %eax
cmpl $0xa, %eax
sete %al
andb $0x1, %al
movb %al, 0x27(%rsp)
testb $0x1, 0x27(%rsp)
je 0x149893
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x8(%rsp)
jmp 0x1498a4
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rcx
movq 0x28(%rsp), %rax
movq %rcx, (%rax)
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x28(%rsp), %rcx
cmpq 0x110(%rcx), %rax
jne 0x149a7a
movq 0x28(%rsp), %rax
movq 0x20(%rax), %rcx
movq 0x28(%rsp), %rax
movq %rcx, (%rax)
jmp 0x1498de
movq 0x28(%rsp), %rax
movq 0x90(%rax), %rax
movq 0x28(%rsp), %rcx
cmpq 0x98(%rcx), %rax
ja 0x149902
movq 0x28(%rsp), %rdi
callq 0xc670
movq 0x28(%rsp), %rcx
movq 0x90(%rcx), %rax
movq %rax, %rdx
addq $-0x8, %rdx
movq %rdx, 0x90(%rcx)
movq -0x8(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movq $0x20001c, (%rax)       # imm = 0x20001C
movq 0x28(%rsp), %rax
movq 0x250(%rax), %rcx
addq $0x1, %rcx
movq %rcx, 0x250(%rax)
movq 0x18(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x18(%rsp), %rax
movq $0x0, 0x8(%rax)
movq 0x28(%rsp), %rax
movq 0x8(%rax), %rcx
movq 0x18(%rsp), %rax
movq %rcx, 0x10(%rax)
movq 0x18(%rsp), %rcx
movq 0x28(%rsp), %rax
movq %rcx, 0x8(%rax)
testb $0x1, 0x27(%rsp)
je 0x149a5f
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x28(%rsp), %rdi
movq 0x28(%rsp), %rax
movq 0x110(%rax), %rsi
movq 0x10(%rsp), %rdx
movl $0x10000028, %ecx       # imm = 0x10000028
xorl %r8d, %r8d
callq 0x18d250
movq %rax, %rcx
movq 0x28(%rsp), %rax
movq %rcx, 0x4e0(%rax)
movq 0x28(%rsp), %rax
movq 0x4e0(%rax), %rax
movq 0x18(%rax), %rax
movq (%rax), %rcx
orq $0x20000000, %rcx       # imm = 0x20000000
movq %rcx, (%rax)
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x8(%rax), %rcx
movq 0x28(%rsp), %rax
movq 0x4e0(%rax), %rax
movq 0x18(%rax), %rax
movq %rcx, 0x20(%rax)
movq 0x28(%rsp), %rdi
movq 0x28(%rsp), %rax
movq 0x8(%rax), %rsi
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x8(%rax), %rdx
movq 0x28(%rsp), %rax
movq 0x4e0(%rax), %rcx
callq 0xbec0
movq 0x10(%rsp), %rcx
movq 0x28(%rsp), %rax
movq %rcx, (%rax)
movq 0x28(%rsp), %rax
movq 0x110(%rax), %rcx
movq 0x28(%rsp), %rax
movq %rcx, 0x4e0(%rax)
jmp 0x149a73
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x10(%rax), %rcx
movq 0x28(%rsp), %rax
movq %rcx, (%rax)
movb $0x1, 0x37(%rsp)
jmp 0x149a8a
movq 0x28(%rsp), %rdi
callq 0x149ca0
andb $0x1, %al
movb %al, 0x37(%rsp)
movb 0x37(%rsp), %al
andb $0x1, %al
addq $0x38, %rsp
retq
nopw %cs:(%rax,%rax)