diff --git a/src/core/ev.c b/src/core/ev.c index abe3940b..59a461d8 100644 --- a/src/core/ev.c +++ b/src/core/ev.c @@ -2525,14 +2525,17 @@ JanetAsyncStatus ev_machine_write(JanetListenerState *s, JanetAsyncEvent event) switch (event) { default: break; - case JANET_ASYNC_EVENT_MARK: - janet_mark(state->is_buffer - ? janet_wrap_buffer(state->src.buf) - : janet_wrap_string(state->src.str)); + case JANET_ASYNC_EVENT_MARK: { + if (state->mode != JANET_ASYNC_WRITEMODE_CONNECT) { + janet_mark(state->is_buffer + ? janet_wrap_buffer(state->src.buf) + : janet_wrap_string(state->src.str)); + } if (state->mode == JANET_ASYNC_WRITEMODE_SENDTO) { janet_mark(janet_wrap_abstract(state->dest_abst)); } break; + } case JANET_ASYNC_EVENT_CLOSE: janet_cancel(s->fiber, janet_cstringv("stream closed")); return JANET_ASYNC_STATUS_DONE; diff --git a/src/core/wrap.c b/src/core/wrap.c index 4537fdc8..f936865a 100644 --- a/src/core/wrap.c +++ b/src/core/wrap.c @@ -43,10 +43,10 @@ int (janet_truthy)(Janet x) { return janet_truthy(x); } -JanetStruct (janet_unwrap_struct)(Janet x) { +JanetStruct(janet_unwrap_struct)(Janet x) { return janet_unwrap_struct(x); } -JanetTuple (janet_unwrap_tuple)(Janet x) { +JanetTuple(janet_unwrap_tuple)(Janet x) { return janet_unwrap_tuple(x); } JanetFiber *(janet_unwrap_fiber)(Janet x) { @@ -61,16 +61,16 @@ JanetTable *(janet_unwrap_table)(Janet x) { JanetBuffer *(janet_unwrap_buffer)(Janet x) { return janet_unwrap_buffer(x); } -JanetString (janet_unwrap_string)(Janet x) { +JanetString(janet_unwrap_string)(Janet x) { return janet_unwrap_string(x); } -JanetSymbol (janet_unwrap_symbol)(Janet x) { +JanetSymbol(janet_unwrap_symbol)(Janet x) { return janet_unwrap_symbol(x); } -JanetKeyword (janet_unwrap_keyword)(Janet x) { +JanetKeyword(janet_unwrap_keyword)(Janet x) { return janet_unwrap_keyword(x); } -JanetAbstract (janet_unwrap_abstract)(Janet x) { +JanetAbstract(janet_unwrap_abstract)(Janet x) { return janet_unwrap_abstract(x); } void *(janet_unwrap_pointer)(Janet x) { @@ -317,4 +317,3 @@ JANET_WRAP_DEFINE(pointer, void *, JANET_POINTER, pointer) #undef JANET_WRAP_DEFINE #endif -