let add_pending_statement ~beginning s = assert (!adding_statement_mode); if beginning then pending_statements_at_beginning := s :: !pending_statements_at_beginning else pending_statements_at_end := s :: !pending_statements_at_end