let rec get_break_label env = match env with
    EnvTopLevel _ -> raise_compile_error ["Unexpected compilation error: attempted to break from a loop outside a loop."]
  | EnvFrame (_,info,_,parent) ->
      match info with
          LoopNoInfo -> get_break_label parent
        | LoopBreakContinue (b,_) -> b