CVS: sml-dist/src/system/Basis/Implementation array-slice.sml,1.3,1.4 char-array-slice.sml,1.3,1.4 real64-array-slice.sml,1.3,1.4 word8-array-slice.sml,1.3,1.4

Update of /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4095/src/system/Basis/Implementation

Modified Files:
	array-slice.sml char-array-slice.sml real64-array-slice.sml 
	word8-array-slice.sml 
Log Message:
fixed bug in xxxArraySlice.update; pushed Basis changes through

Index: array-slice.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/array-slice.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** array-slice.sml	6 Jul 2005 05:44:37 -0000	1.3
--- array-slice.sml	7 Nov 2005 23:03:18 -0000	1.4
***************
*** 35,39 ****
  	val i' = start + i
      in
! 	if i' <= start orelse i' > stop then raise Subscript
  	else uupd (base, i', x)
      end
--- 35,39 ----
  	val i' = start + i
      in
! 	if i' < start orelse i' >= stop then raise Subscript
  	else uupd (base, i', x)
      end

Index: char-array-slice.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/char-array-slice.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** char-array-slice.sml	6 Jul 2005 05:44:37 -0000	1.3
--- char-array-slice.sml	7 Nov 2005 23:03:18 -0000	1.4
***************
*** 46,50 ****
  	val i' = start + i
      in
! 	if i' <= start orelse i' > stop then raise Subscript
  	else uupd (base, i', x)
      end
--- 46,50 ----
  	val i' = start + i
      in
! 	if i' < start orelse i' >= stop then raise Subscript
  	else uupd (base, i', x)
      end

Index: real64-array-slice.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/real64-array-slice.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** real64-array-slice.sml	6 Jul 2005 05:44:37 -0000	1.3
--- real64-array-slice.sml	7 Nov 2005 23:03:18 -0000	1.4
***************
*** 46,50 ****
  	val i' = start + i
      in
! 	if i' <= start orelse i' > stop then raise Subscript
  	else uupd (base, i', x)
      end
--- 46,50 ----
  	val i' = start + i
      in
! 	if i' < start orelse i' >= stop then raise Subscript
  	else uupd (base, i', x)
      end

Index: word8-array-slice.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/word8-array-slice.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** word8-array-slice.sml	6 Jul 2005 05:44:37 -0000	1.3
--- word8-array-slice.sml	7 Nov 2005 23:03:18 -0000	1.4
***************
*** 46,50 ****
  	val i' = start + i
      in
! 	if i' <= start orelse i' > stop then raise Subscript
  	else uupd (base, i', x)
      end
--- 46,50 ----
  	val i' = start + i
      in
! 	if i' < start orelse i' >= stop then raise Subscript
  	else uupd (base, i', x)
      end



-------------------------------------------------------
SF.Net email is sponsored by:
Tame your development challenges with Apache's Geronimo App Server. Download
it for free - -and be entered to win a 42" plasma tv or your very own
Sony(tm)PSP.  Click here to play: http://sourceforge.net/geronimo.php