suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix output-port blocking break behavior

Browse Source 
svn: r7623
This commit is contained in:
Matthew Flatt 2007-11-02 03:00:51 +00:00
parent 2a91979a4b
commit 0cedb6ed23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/portfun.c
View File

@ -1744,11 +1744,11 @@ user_write_bytes(Scheme_Output_Port *port, const char *str, long offset, long le
val = scheme_apply(uop->write_proc, 5, p); val = scheme_apply(uop->write_proc, 5, p);
scheme_pop_break_enable(&cframe, 1); /* might break */
n = user_write_result("user port write", port, n = user_write_result("user port write", port,
1, val, rarely_block, enable_break, len); 1, val, rarely_block, enable_break, len);
scheme_pop_break_enable(&cframe, 1);
if (!n && !rarely_block) { if (!n && !rarely_block) {
/* Try blocking write/flush again */ /* Try blocking write/flush again */
} else { } else {