fix output-port blocking break behavior

svn: r7623
2007-11-02 03:00:51 +00:00 · 2007-11-02 03:00:51 +00:00 · 0cedb6ed23
commit 0cedb6ed23
parent 2a91979a4b
1 changed files with 2 additions and 2 deletions
--- a/src/mzscheme/src/portfun.c
+++ b/src/mzscheme/src/portfun.c
@ -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);

+    scheme_pop_break_enable(&cframe, 1); /* might break */
+
    n = user_write_result("user port write", port,
 			  1, val, rarely_block, enable_break, len);

-    scheme_pop_break_enable(&cframe, 1);
-
    if (!n && !rarely_block) {
      /* Try blocking write/flush again */
    } else {