[gobo-eiffel-commits] gobo/library/tools/eiffel/ast/type et_base_type_list.e,1.3,1.4

[Eric B. <er...@us...>]

Update of /cvsroot/gobo-eiffel/gobo/library/tools/eiffel/ast/type
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32113/library/tools/eiffel/ast/type

Modified Files:
	et_base_type_list.e 
Log Message:
ET_BASE_TYPE_LIST uses ET_TAIL_LIST instead of 
ET_HEAD_LIST.

Index: et_base_type_list.e
===================================================================
RCS file: /cvsroot/gobo-eiffel/gobo/library/tools/eiffel/ast/type/et_base_type_list.e,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** et_base_type_list.e	23 Jul 2004 14:14:17 -0000	1.3
--- et_base_type_list.e	27 Jul 2004 16:42:40 -0000	1.4
***************
*** 15,19 ****
  inherit
  
! 	ET_HEAD_LIST [ET_BASE_TYPE]
  
  creation
--- 15,19 ----
  inherit
  
! 	ET_TAIL_LIST [ET_BASE_TYPE]
  
  creation
***************
*** 32,37 ****
  			i, nb: INTEGER
  		do
! 			nb := count - 1
! 			from i := 0 until i > nb loop
  				if storage.item (i).direct_base_class (a_universe) = a_class then
  					Result := True
--- 32,37 ----
  			i, nb: INTEGER
  		do
! 			nb := count
! 			from i := 1 until i > nb loop
  				if storage.item (i).direct_base_class (a_universe) = a_class then
  					Result := True
***************
*** 53,58 ****
  			a_type: ET_BASE_TYPE
  		do
! 			nb := count - 1
! 			from i := 0 until i > nb loop
  				a_type := storage.item (i)
  				if a_type.direct_base_class (a_universe) = a_class then
--- 53,58 ----
  			a_type: ET_BASE_TYPE
  		do
! 			nb := count
! 			from i := 1 until i > nb loop
  				a_type := storage.item (i)
  				if a_type.direct_base_class (a_universe) = a_class then