Make unix-system-call retry the call immediately upon hitting EINTR. Use unix-system...

[factor.git] / basis / io / files / links / unix / unix.factor

diff --git a/basis/io/files/links/unix/unix.factor b/basis/io/files/links/unix/unix.factor
index f41adfa7311e2f948eaebbeef96d12ff53b57e3d..ced4c11c59713ac51e6da3a7a4454f7c75ca65c5 100644 (file)
--- a/basis/io/files/links/unix/unix.factor
+++ b/basis/io/files/links/unix/unix.factor
@@ -5,10 +5,10 @@ io.files sequences ;
 IN: io.files.links.unix
 
 M: unix make-link ( path1 path2 -- )
-    normalize-path symlink io-error ;
+    normalize-path [ symlink ] unix-system-call io-error ;
 
 M: unix make-hard-link ( path1 path2 -- )
-    normalize-path link io-error ;
+    normalize-path [ link ] unix-system-call io-error ;
 
 M: unix read-link ( path -- path' )
     normalize-path read-symbolic-link ;