[Camomile-commits] camomile/public char_encoding.ml,1.8,1.9 uchannel.ml,1.3,1.4 ustorage.ml,1.2,1.3 ustorage.mli,1.3,1.4

[<yo...@us...>]

Update of /cvsroot/camomile/camomile/public
In directory usw-pr-cvs1:/tmp/cvs-serv25335/public

Modified Files:
	char_encoding.ml uchannel.ml ustorage.ml ustorage.mli 
Log Message:
Ustorage.iter s proc -> Ustorage.iter proc s


Index: char_encoding.ml
===================================================================
RCS file: /cvsroot/camomile/camomile/public/char_encoding.ml,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** char_encoding.ml	24 May 2002 00:54:55 -0000	1.8
--- char_encoding.ml	2 Jun 2002 08:35:27 -0000	1.9
***************
*** 22,26 ****
  
  let feed_ustorage encoder s =
!   Ustorage.iter s (encoder.uread)
  
  type t =
--- 22,26 ----
  
  let feed_ustorage encoder s =
!   Ustorage.iter encoder.uread s
  
  type t =

Index: uchannel.ml
===================================================================
RCS file: /cvsroot/camomile/camomile/public/uchannel.ml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** uchannel.ml	24 May 2002 00:53:59 -0000	1.3
--- uchannel.ml	2 Jun 2002 08:35:27 -0000	1.4
***************
*** 21,25 ****
    end
  
! let output_string outchan s = Ustorage.iter s (outchan#put)
  
  let apply_filter f s =
--- 21,25 ----
    end
  
! let output_string outchan s = Ustorage.iter outchan#put s
  
  let apply_filter f s =

Index: ustorage.ml
===================================================================
RCS file: /cvsroot/camomile/camomile/public/ustorage.ml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ustorage.ml	19 Apr 2002 04:45:55 -0000	1.2
--- ustorage.ml	2 Jun 2002 08:35:27 -0000	1.3
***************
*** 20,24 ****
    end
  
! let iter s op =
    let cur = s#first in
    try while true do
--- 20,24 ----
    end
  
! let iter op s =
    let cur = s#first in
    try while true do

Index: ustorage.mli
===================================================================
RCS file: /cvsroot/camomile/camomile/public/ustorage.mli,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ustorage.mli	10 May 2002 10:57:07 -0000	1.3
--- ustorage.mli	2 Jun 2002 08:35:27 -0000	1.4
***************
*** 20,24 ****
    end
  
! val iter : (#cur as 'a) #t -> (Uchar.t -> unit) -> unit
  
  (* Equality by code point comparison. 
--- 20,24 ----
    end
  
! val iter : (Uchar.t -> unit) -> (#cur as 'a) #t -> unit
  
  (* Equality by code point comparison.