
  PROCEDURE [INLINE] clp$get_interpreter_mode
    (VAR interpreter_mode: clt$interpreter_modes);

?? PUSH (LISTEXT := ON) ??

    VAR
      block: ^clt$block;

    clp$find_current_block (block);
    interpreter_mode := block^.interpreter_mode;

  PROCEND clp$get_interpreter_mode;

*copyc clt$block
*copyc clt$interpreter_modes
?? POP ??
*copyc clp$find_current_block
