
  FUNCTION [INLINE] clp$file_ref_is_pre_evaluated
    (    file_reference_parsing_options: clt$file_ref_parsing_options;
         parse: clt$parse_state): boolean;

?? PUSH (LISTEXT := ON) ??

    clp$file_ref_is_pre_evaluated := ($clt$file_ref_parsing_options
          [clc$evaluating_command_ref, clc$evaluating_entry_point_ref,
          clc$multiple_reference_allowed] * file_reference_parsing_options =
          $clt$file_ref_parsing_options []) AND
          (parse.units_array^ [parse.units_array_index + 1].kind =
          clc$lex_name) AND (parse.text^ (parse.index) <> '$');

  FUNCEND clp$file_ref_is_pre_evaluated;

*copyc clt$file_ref_parsing_options
*copyc clt$parse_state
?? POP ??
