steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

some fixes

cvs
Slava Pestov 2004-12-11 03:54:53 +00:00
parent 41e63af7e5
commit 2dfc5031b6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
native/win32/write.c
View File

@ -12,20 +12,20 @@ void primitive_can_write (void)
box_boolean(true);
}
void write_char_8 (PORT *port, FIXNUM ch)
void write_char_8 (F_PORT *port, F_FIXNUM ch)
{
char buf = (char)ch;
WriteFile((HANDLE)port->fd, &buf, 1, NULL, NULL);
}
void write_string_8 (PORT *port, STRING *str)
void write_string_8 (F_PORT *port, F_STRING *str)
{
WriteFile((HANDLE)port->fd, to_c_string(str), str->capacity, NULL, NULL);
}
void primitive_write_8 (void)
{
PORT *port;
F_PORT *port;
CELL text, type;
maybe_garbage_collection();