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