working on native image output

[factor.git] / native / fd.c

diff --git a/native/fd.c b/native/fd.c
index bb6cb1a0ee790cbd5fa9d7830ec2850bae83c1fc..87d0d9b6cfe94c335f82a113cf53cd90cc9acf59 100644 (file)
--- a/native/fd.c
+++ b/native/fd.c
@@ -115,7 +115,7 @@ void primitive_write_fd_8(void)
        switch(type)
        {
        case FIXNUM_TYPE:
-               write_fd_char_8(h,untag_fixnum(text));
+               write_fd_char_8(h,to_fixnum(text));
                break;
        case STRING_TYPE:
                write_fd_string_8(h,untag_string(text));
@@ -147,10 +147,10 @@ void primitive_flush_fd(void)
 
 void primitive_shutdown_fd(void)
 {
-       HANDLE* h = untag_handle(HANDLE_FD,env.dt);
+       /* HANDLE* h = untag_handle(HANDLE_FD,env.dt);
        int fd = h->object;
 
-       /* if(shutdown(fd,SHUT_RDWR) < 0)
+       if(shutdown(fd,SHUT_RDWR) < 0)
                io_error(__FUNCTION__); */
 
        env.dt = dpop();