buffer-extend -> extend-buffer

erg 2006-03-01 19:12:34 +00:00
parent 1f5a2b0d75
commit 2691f48493
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;