
  FUNCTION [INLINE] i#current_sequence_position
    (    sequence_pointer: ^SEQ ( * )): integer;

?? PUSH (LISTEXT := ON) ??

    VAR
      converter: record
        case 1 .. 2 of
        = 1 =
          pointer: ^SEQ ( * ),
        = 2 =
          breakdown: cyt$sequence_pointer,
        casend,
      recend;


    converter.pointer := sequence_pointer;
    i#current_sequence_position := converter.breakdown.nextt;

  FUNCEND i#current_sequence_position;

*copyc cyd$cybil_structure_definitions
?? POP ??
