condGoto :: Special -> Label -> Instr
condGoto special l = Instr $ do
  InstrState { isLastBranch, isOffset } <- get
  unless (ifLastBranch isOffset isLastBranch) $
    unInstr (gotoLabel special l)
condGoto :: Special -> Label -> Instr
condGoto special l = Instr $ do
  InstrState { isLastBranch, isOffset } <- get
  unless (ifLastBranch isOffset isLastBranch) $
    unInstr (gotoLabel special l)
condGoto special l = Instr $ do
  InstrState { isLastBranch, isOffset } <- get
  unless (ifLastBranch isOffset isLastBranch) $
    unInstr (gotoLabel special l)