buffer-extend -> extend-buffer
parent
1f5a2b0d75
commit
2691f48493
|
@ -80,7 +80,7 @@ M: string do-write ( str -- )
|
||||||
out-buffer get >buffer
|
out-buffer get >buffer
|
||||||
] [
|
] [
|
||||||
dup length out-buffer get buffer-size > [
|
dup length out-buffer get buffer-size > [
|
||||||
dup length out-buffer get buffer-extend do-write
|
dup length out-buffer get extend-buffer do-write
|
||||||
] [ flush-output do-write ] if
|
] [ flush-output do-write ] if
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue