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

use symbols for network port names

Browse Source 
svn: r11415
This commit is contained in:
Eli Barzilay 2008-08-25 14:23:31 +00:00
parent 524cf0414d
commit 98e597f495
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mzscheme/src/network.c
View File

@ -1567,7 +1567,7 @@ make_tcp_input_port(void *data, const char *name)
ip = scheme_make_input_port(scheme_tcp_input_port_type,
data,
scheme_make_immutable_sized_utf8_string((char *)name, -1),
scheme_intern_symbol(name),
tcp_get_string,
NULL,
scheme_progress_evt_via_get,
@ -1589,7 +1589,7 @@ make_tcp_output_port(void *data, const char *name)
op = scheme_make_output_port(scheme_tcp_output_port_type,
data,
scheme_make_immutable_sized_utf8_string((char *)name, -1),
scheme_intern_symbol(name),
scheme_write_evt_via_write,
tcp_write_string,
(Scheme_Out_Ready_Fun)tcp_check_write,
@ -2220,8 +2220,8 @@ tcp_accept(int argc, Scheme_Object *argv[])
tcp = make_tcp_port_data(s, 2);
v[0] = make_tcp_input_port(tcp, "[accepted]");
v[1] = make_tcp_output_port(tcp, "[accepted]");
v[0] = make_tcp_input_port(tcp, "tcp-accepted");
v[1] = make_tcp_output_port(tcp, "tcp-accepted");
scheme_file_open_count++;
REGISTER_SOCKET(s);