From d39f686e3ef4fc70c3bcddb673b63a05091e602e Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Fri, 17 Jun 2005 17:53:24 +0000
Subject: [PATCH] fix typo in syscalls-linux

---
 TODO.FACTOR.txt                    | 5 ++++-
 library/unix/syscalls-linux.factor | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 5c84fbef9d..147ef93c1f 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,3 +1,7 @@
++ bugs to fix soon
+
+<erg> if write returns -1  and errno == EINTR then it's not a real error, you can try again
+
 <magnus--> http://developer.apple.com/technotes/tn2004/tn2123.html#SECLIMITATIONS
 <magnus--> http://www.caddr.com/macho/archives/sbcl-devel/2005-3/4742.html
 <magnus--> not *too* long
@@ -7,7 +11,6 @@
 <magnus--> http://clozure.com/cgi-bin/viewcvs.cgi/ccl/lisp-kernel/lisp-exceptions.c?rev=1.9&content-type=text/vnd.viewcvs-markup
 
 - there is a problem with hashcodes of words and bootstrapping
-<erg> if write returns -1  and errno == EINTR then it's not a real error, you can try again
 - http keep alive, and range get
 - sleep word
 - fix i/o on generic x86/ppc unix
diff --git a/library/unix/syscalls-linux.factor b/library/unix/syscalls-linux.factor
index 04f86f9e0e..9d449707e2 100644
--- a/library/unix/syscalls-linux.factor
+++ b/library/unix/syscalls-linux.factor
@@ -23,7 +23,7 @@ USING: alien ;
 : INADDR_ANY 0 ;
 
 : F_SETFL 4 ;    ! set file status flags
-: O_NONBLOCK 4 ; ! no delay
+: O_NONBLOCK HEX: 800 ; ! no delay
 
 BEGIN-STRUCT: sockaddr-in
     FIELD: ushort family