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