From 23bdf2faa7ac92bd433671539e5153166839122c Mon Sep 17 00:00:00 2001 From: sheeple Date: Mon, 31 Mar 2008 08:57:16 -0500 Subject: [PATCH 1/3] add using --- extra/io/unix/sockets/sockets.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/io/unix/sockets/sockets.factor b/extra/io/unix/sockets/sockets.factor index dea7dc17b5..c7931c6f0c 100755 --- a/extra/io/unix/sockets/sockets.factor +++ b/extra/io/unix/sockets/sockets.factor @@ -7,7 +7,7 @@ USING: alien alien.c-types generic io kernel math namespaces io.nonblocking parser threads unix sequences byte-arrays io.sockets io.binary io.unix.backend io.streams.duplex io.sockets.impl math.parser continuations libc -combinators ; +combinators io.backend ; IN: io.unix.sockets : pending-init-error ( port -- ) From 0a63a8fb40dd290b36958bad7cda4b2751b961c6 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 31 Mar 2008 14:38:11 -0500 Subject: [PATCH 2/3] normalize-pathname in local sockets --- extra/io/unix/sockets/sockets.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/io/unix/sockets/sockets.factor b/extra/io/unix/sockets/sockets.factor index bd7dfd9ce1..dea7dc17b5 100755 --- a/extra/io/unix/sockets/sockets.factor +++ b/extra/io/unix/sockets/sockets.factor @@ -189,7 +189,7 @@ M: local protocol-family drop PF_UNIX ; M: local sockaddr-type drop "sockaddr-un" c-type ; M: local make-sockaddr - local-path + local-path normalize-pathname dup length 1 + max-un-path > [ "Path too long" throw ] when "sockaddr-un" AF_UNIX over set-sockaddr-un-family From f49c72bb05fd5a2af16622f20b6771a857b10fac Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 31 Mar 2008 15:31:51 -0500 Subject: [PATCH 3/3] remove curry2 from mersenne.private... --- extra/random/mersenne-twister/mersenne-twister.factor | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/extra/random/mersenne-twister/mersenne-twister.factor b/extra/random/mersenne-twister/mersenne-twister.factor index ce1749ce62..8ddbdac6f4 100755 --- a/extra/random/mersenne-twister/mersenne-twister.factor +++ b/extra/random/mersenne-twister/mersenne-twister.factor @@ -9,9 +9,6 @@ IN: random.mersenne-twister r over r> [ curry ] 2bi@ ; inline - TUPLE: mersenne-twister seq i ; : mt-n 624 ; inline @@ -27,7 +24,7 @@ TUPLE: mersenne-twister seq i ; r> bitxor bitxor r> r> set-nth ; inline : calculate-y ( y1 y2 mt -- y ) - [ nth mt-hi ] [ nth mt-lo ] curry2 bi* bitor ; inline + tuck [ nth mt-hi ] [ nth mt-lo ] 2bi* bitor ; inline : (mt-generate) ( n mt-seq -- y to from-elt ) [ >r dup 1+ mt-wrap r> calculate-y ]