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

inherit
  VTUPLE_EMITTER [G]
    redefine
       source, place
    end

creation {BTLIST}
  make, make_cyclic

feature {ANY}

  source : BTLIST [G]

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

end -- class BTLIST_EMITTER [G]