@@ -163,7 +163,7 @@ module internal PrintfImpl =
163163type PrintfEnv < 'State , 'Residue , 'Result > =
164164val State : 'State
165165new ( s: 'State) = { State= s}
166- abstract Finalize :unit -> 'Result
166+ abstract Finish :unit -> 'Result
167167abstract Write : string -> unit
168168abstract WriteT : 'Residue -> unit
169169
@@ -225,7 +225,7 @@ module internal PrintfImpl =
225225( fun ( a : 'A ) ->
226226let env = env()
227227 Utils.Write( env, s0, ( conv1 a), s1)
228- env.Finalize ()
228+ env.Finish ()
229229)
230230)
231231static member Final2 < 'A , 'B >
@@ -236,7 +236,7 @@ module internal PrintfImpl =
236236( fun ( a : 'A ) ( b : 'B ) ->
237237let env = env()
238238 Utils.Write( env, s0, ( conv1 a), s1, ( conv2 b), s2)
239- env.Finalize ()
239+ env.Finish ()
240240)
241241)
242242
@@ -248,7 +248,7 @@ module internal PrintfImpl =
248248( fun ( a : 'A ) ( b : 'B ) ( c : 'C ) ->
249249let env = env()
250250 Utils.Write( env, s0, ( conv1 a), s1, ( conv2 b), s2, ( conv3 c), s3)
251- env.Finalize ()
251+ env.Finish ()
252252)
253253)
254254
@@ -260,7 +260,7 @@ module internal PrintfImpl =
260260( fun ( a : 'A ) ( b : 'B ) ( c : 'C ) ( d : 'D ) ->
261261let env = env()
262262 Utils.Write( env, s0, ( conv1 a), s1, ( conv2 b), s2, ( conv3 c), s3, ( conv4 d), s4)
263- env.Finalize ()
263+ env.Finish ()
264264)
265265)
266266static member Final5 < 'A , 'B , 'C , 'D , 'E >
@@ -271,7 +271,7 @@ module internal PrintfImpl =
271271( fun ( a : 'A ) ( b : 'B ) ( c : 'C ) ( d : 'D ) ( e : 'E ) ->
272272let env = env()
273273 Utils.Write( env, s0, ( conv1 a), s1, ( conv2 b), s2, ( conv3 c), s3, ( conv4 d), s4, ( conv5 e), s5)
274- env.Finalize ()
274+ env.Finish ()
275275)
276276)
277277static member Chained1 < 'A , 'Tail >
@@ -354,7 +354,7 @@ module internal PrintfImpl =
354354 env.Write( s1)
355355 env.WriteT( f env.State)
356356 env.Write s2
357- env.Finalize ()
357+ env.Finish ()
358358)
359359)
360360static member TChained < 'Tail >( s1 : string , next : PrintfFactory < 'State , 'Residue , 'Result , 'Tail >) =
@@ -376,7 +376,7 @@ module internal PrintfImpl =
376376 env.Write s1
377377 env.WriteT( f env.State a)
378378 env.Write s2
379- env.Finalize ()
379+ env.Finish ()
380380)
381381)
382382static member LittleAChained < 'A , 'Tail >( s1 : string , next : PrintfFactory < 'State , 'Residue , 'Result , 'Tail >) =
@@ -398,7 +398,7 @@ module internal PrintfImpl =
398398 env.Write s1
399399 env.Write( conv a star1: string)
400400 env.Write s2
401- env.Finalize ()
401+ env.Finish ()
402402)
403403)
404404
@@ -409,7 +409,7 @@ module internal PrintfImpl =
409409 env.Write s1
410410 env.Write( " %" )
411411 env.Write s2
412- env.Finalize ()
412+ env.Finish ()
413413)
414414)
415415
@@ -420,7 +420,7 @@ module internal PrintfImpl =
420420 env.Write s1
421421 env.Write( conv a star1 star2: string)
422422 env.Write s2
423- env.Finalize ()
423+ env.Finish ()
424424)
425425)
426426
@@ -432,7 +432,7 @@ module internal PrintfImpl =
432432 env.Write s1
433433 env.Write( " %" )
434434 env.Write s2
435- env.Finalize ()
435+ env.Finish ()
436436)
437437)
438438
@@ -1234,7 +1234,7 @@ module internal PrintfImpl =
12341234 box( fun ( env : unit -> PrintfEnv< 'S, 'Re, 'Res>) ->
12351235let env = env()
12361236 env.Write prefix
1237- env.Finalize ()
1237+ env.Finish ()
12381238)
12391239else
12401240let n = parseFromFormatSpecifier prefix s funcTy prefixPos
@@ -1307,21 +1307,21 @@ module internal PrintfImpl =
13071307let buf : string [] = Array.zeroCreate n
13081308let mutable ptr = 0
13091309
1310- override __.Finalize () : 'Result = k( String.Concat( buf))
1310+ override __.Finish () : 'Result = k( String.Concat( buf))
13111311override __.Write ( s : string ) =
13121312 buf.[ ptr] <- s
13131313 ptr<- ptr+ 1
13141314override this.WriteT ( s ) = this.Write s
13151315
13161316type StringBuilderPrintfEnv < 'Result >( k , buf ) =
13171317inherit PrintfEnv< Text.StringBuilder, unit, 'Result>( buf)
1318- override __.Finalize () : 'Result = k()
1318+ override __.Finish () : 'Result = k()
13191319override __.Write ( s : string ) = ignore( buf.Append( s))
13201320override __.WriteT (()) = ()
13211321
13221322type TextWriterPrintfEnv < 'Result >( k , tw : IO.TextWriter ) =
13231323inherit PrintfEnv< IO.TextWriter, unit, 'Result>( tw)
1324- override __.Finalize () : 'Result = k()
1324+ override __.Finish () : 'Result = k()
13251325override __.Write ( s : string ) = tw.Write s
13261326override __.WriteT (()) = ()
13271327