class GBN_BTLIST_ITERATOR [G]
  -- descendent of GBN_TUPLE_ITERATOR, only to allow the
  -- types of vtuple and place to be set correctly.

inherit
  GBN_TUPLE_ITERATOR [G]
    redefine
       source, place
    end

creation {GBN_BTLIST}
  make, make_cyclic

feature {ANY}

  source : GBN_BTLIST [G]

  place : GBN_BTLIST_NODE [G] is
    do
      Result := cursor
    end

end -- class GBN_BTLIST_ITERATOR [G]