Merge branch 'master' of git://factorcode.org/git/factor

extra/math/primes/primes.factor

@@ -47,3 +47,5 @@ PRIVATE>
   primes-upto
   >r 1- next-prime r>
   [ [ <=> ] binsearch ] keep [ length ] keep <slice> ; foldable
+
+: coprime? ( a b -- ? ) gcd nip 1 = ; foldable

extra/unix/types/linux/linux.factor

@@ -7,9 +7,9 @@ IN: unix.types
 
 TYPEDEF: ulonglong __uquad_type
 TYPEDEF: ulong     __ulongword_type
-TYPEDEF: uint      __uword_type
+TYPEDEF: long      __sword_type
+TYPEDEF: ulong     __uword_type
 TYPEDEF: long      __slongword_type
-TYPEDEF: int       __sword_type
 TYPEDEF: uint      __u32_type
 TYPEDEF: int       __s32_type 
 

extra/unix/types/macosx/macosx.factor

@@ -1,4 +1,6 @@
 
+USING: alien.syntax ;
+
 IN: unix.types
 
 ! Darwin 9.1.0 ppc

extra/unix/unix.factor

@@ -2,36 +2,36 @@
 ! See http://factorcode.org/license.txt for BSD license.
 IN: unix
 USING: alien alien.c-types alien.syntax kernel libc structs
-math namespaces system combinators vocabs.loader ;
+math namespaces system combinators vocabs.loader unix.types ;
 
 ! ! ! Unix types
 
-TYPEDEF:  long  word
-TYPEDEF: ulong uword
+! TYPEDEF:  long  word
+! TYPEDEF: ulong uword
 
-TYPEDEF:  long longword
-TYPEDEF: ulong ulongword
+! TYPEDEF:  long longword
+! TYPEDEF: ulong ulongword
 
-TYPEDEF: long ssize_t
-TYPEDEF: longword blksize_t
-TYPEDEF: longword blkcnt_t
-TYPEDEF: longlong quad_t
-TYPEDEF: ulonglong dev_t
-TYPEDEF: uint gid_t
+! TYPEDEF: long ssize_t
+! TYPEDEF: longword blksize_t
+! TYPEDEF: longword blkcnt_t
+! TYPEDEF: longlong quad_t
+! TYPEDEF: ulonglong dev_t
+! TYPEDEF: uint gid_t
 TYPEDEF: uint in_addr_t
-TYPEDEF: ulong ino_t
-TYPEDEF: int pid_t
+! TYPEDEF: ulong ino_t
+! TYPEDEF: int pid_t
 TYPEDEF: uint socklen_t
 TYPEDEF: uint time_t
-TYPEDEF: uint uid_t
+! TYPEDEF: uint uid_t
 TYPEDEF: ulong size_t
-TYPEDEF: ulong u_long
-TYPEDEF: uint mode_t
-TYPEDEF: uword nlink_t
-TYPEDEF: void* caddr_t
+! TYPEDEF: ulong u_long
+! TYPEDEF: uint mode_t
+! TYPEDEF: uword nlink_t
+! TYPEDEF: void* caddr_t
 
-TYPEDEF: ulong off_t
-TYPEDEF-IF: bsd? ulonglong off_t
+! TYPEDEF: ulong off_t
+! TYPEDEF-IF: bsd? ulonglong off_t
 
 C-STRUCT: tm
     { "int" "sec" }    ! Seconds: 0-59 (K&R says 0-61?)