分岐が動くようになった - JIT実験中

(let* ([label (gensym)]
       [asm (assemble `((movq rax ,(vm-make-fixnum 2))
                        (movq rbx ,(vm-make-fixnum 2))
                        (cmpq rax rbx)
                        (je ,label)
                        (movq rax ,(vm-make-fixnum 3))
                        (label ,label)
                        (retq)))]
       [proc (u8-list->c-procedure asm)])
  (test-true (procedure? proc))
  (test-eq 2 (proc)))