
  TYPE
    clt$control_statement_desc = record
      call_in_skip_mode: boolean,
      case kind: clt$control_statement_kind of
      = clc$control_command =
        command: clt$command,
      = clc$control_statement =
        label_allowed: boolean,
        statement: clt$control_statement,
      casend,
    recend;

  TYPE
    clt$control_statement_kind = (clc$control_command, clc$control_statement);

*copyc clt$command_processor
*copyc clt$control_statement
