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

fix name on port sent through place channel

Browse Source
This commit is contained in:
Matthew Flatt 2019-12-26 05:02:33 -06:00
parent 90abbb912d
commit 15d7c439df
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/src/racket/src/place.c
View File

@ -1247,6 +1247,8 @@ static Scheme_Object *shallow_types_copy(Scheme_Object *so, Scheme_Hash_Table *h
rktio_fd_t *fd; rktio_fd_t *fd;
name = ((Scheme_Serialized_Socket_FD *) so)->name; name = ((Scheme_Serialized_Socket_FD *) so)->name;
name = shallow_types_copy(name, NULL, fd_accumulators, delayed_err, delayed_errno, delayed_errkind,
mode, can_raise_exn, master_chain, invalid_object);
fd = rktio_fd_attach(scheme_rktio, fdt); fd = rktio_fd_attach(scheme_rktio, fdt);
/* scheme_socket_to_ports(fd, "tcp-accepted", 1, &in, &out); */ /* scheme_socket_to_ports(fd, "tcp-accepted", 1, &in, &out); */
@ -1282,6 +1284,9 @@ static Scheme_Object *shallow_types_copy(Scheme_Object *so, Scheme_Hash_Table *h
name = ffd->name; name = ffd->name;
type = ffd->type; type = ffd->type;
name = shallow_types_copy(name, NULL, fd_accumulators, delayed_err, delayed_errno, delayed_errkind,
mode, can_raise_exn, master_chain, invalid_object);
if (type == scheme_input_port_type) { if (type == scheme_input_port_type) {
new_so = scheme_make_rktio_fd_input_port(fd, name); new_so = scheme_make_rktio_fd_input_port(fd, name);
} }