unix: adding mkfifo.

[factor.git] / basis / unix / unix.factor

diff --git a/basis/unix/unix.factor b/basis/unix/unix.factor
index 101736ea1f76681775989406def1f41ef4d500b4..7d5549e4336447537440a45f90305e298bb164ee 100644 (file)
--- a/basis/unix/unix.factor
+++ b/basis/unix/unix.factor
@@ -54,6 +54,8 @@ FUNCTION: int _exit ( int status ) ;
 
 M: unix open-file [ open ] unix-system-call ;
 
+: make-fifo ( path mode -- ) [ mkfifo ] unix-system-call drop ;
+
 : touch ( filename -- ) f [ utime ] unix-system-call drop ;
 
 : change-file-times ( filename access modification -- )