(let ((bo (logxor 8 bo))) ;; invert the test
(emit-b-form-inst segment 16 bo bi
2 ; skip over next instruction
0 0)
(emit-back-patch segment 4
#'(lambda (segment posn)
(let ((bo (logxor 8 bo))) ;; invert the test
(emit-b-form-inst segment 16 bo bi
2 ; skip over next instruction
0 0)
(emit-back-patch segment 4
#'(lambda (segment posn)