From 72ea94384dca1ac4d394432d821a69d86f60d4e1 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 15 Nov 2007 04:40:23 -0500 Subject: [PATCH 1/3] Fixes --- core/system/system-tests.factor | 4 ++-- extra/http/server/responders/responders.factor | 3 +-- extra/io/sniffer/bsd/bsd.factor | 3 +-- 3 files changed, 4 insertions(+), 6 deletions(-) diff --git a/core/system/system-tests.factor b/core/system/system-tests.factor index 0b2d106d35..c542e68981 100755 --- a/core/system/system-tests.factor +++ b/core/system/system-tests.factor @@ -1,6 +1,6 @@ -USING: math tools.test system ; +USING: math tools.test system prettyprint ; IN: temporary [ t ] [ cell integer? ] unit-test [ t ] [ bootstrap-cell integer? ] unit-test -[ ] [ os-env . ] unit-test +[ ] [ os-envs . ] unit-test diff --git a/extra/http/server/responders/responders.factor b/extra/http/server/responders/responders.factor index 594454979a..2dfbf73004 100644 --- a/extra/http/server/responders/responders.factor +++ b/extra/http/server/responders/responders.factor @@ -19,8 +19,7 @@ SYMBOL: responders

write

; : error-head ( error -- ) - dup log-error - dup response + dup log-error response H{ { "Content-Type" "text/html" } } print-header nl ; : httpd-error ( error -- ) diff --git a/extra/io/sniffer/bsd/bsd.factor b/extra/io/sniffer/bsd/bsd.factor index 4568649d23..91266b7be3 100644 --- a/extra/io/sniffer/bsd/bsd.factor +++ b/extra/io/sniffer/bsd/bsd.factor @@ -7,8 +7,7 @@ sequences ; QUALIFIED: unix IN: io.sniffer.bsd -M: unix-io (handle-destructor) ( obj -- ) - destructor-obj close drop ; +M: unix-io destruct-handle ( obj -- ) close drop ; C-UNION: ifreq_props "sockaddr-in" "short" "int" "caddr_t" ; C-STRUCT: ifreq { { "char" 16 } "name" } { "ifreq_props" "props" } ; From 90029a312b892fa3b118a6335cded9c0e6b79be3 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 15 Nov 2007 04:40:35 -0500 Subject: [PATCH 2/3] Use built-in digits>integer word --- extra/parser-combinators/simple/simple.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/parser-combinators/simple/simple.factor b/extra/parser-combinators/simple/simple.factor index eac1c4068b..955807efa3 100644 --- a/extra/parser-combinators/simple/simple.factor +++ b/extra/parser-combinators/simple/simple.factor @@ -11,7 +11,7 @@ LAZY: 'any-char' ( -- parser ) [ digit? ] satisfy [ digit> ] <@ ; : 'integer' ( -- parser ) - 'digit' [ 0 [ swap 10 * + ] reduce ] <@ ; + 'digit' [ 10 swap digits>integer ] <@ ; : 'string' ( -- parser ) [ CHAR: " = ] satisfy From e163e15828ae963878fd647aab4a8b147c83ebc6 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 15 Nov 2007 04:40:47 -0500 Subject: [PATCH 3/3] Add new weblog to blogroll --- extra/webapps/planet/planet.factor | 1 + 1 file changed, 1 insertion(+) diff --git a/extra/webapps/planet/planet.factor b/extra/webapps/planet/planet.factor index 75302eb59c..3abb42ecf1 100644 --- a/extra/webapps/planet/planet.factor +++ b/extra/webapps/planet/planet.factor @@ -100,6 +100,7 @@ SYMBOL: cached-postings \ planet-factor { } define-action { + { "Berlin Brown" "http://factorlang-fornovices.blogspot.com/feeds/posts/default" "http://factorlang-fornovices.blogspot.com" } { "Chris Double" "http://www.bluishcoder.co.nz/atom.xml" "http://www.bluishcoder.co.nz/" } { "Elie Chaftari" "http://fun-factor.blogspot.com/feeds/posts/default" "http://fun-factor.blogspot.com/" } { "Doug Coleman" "http://code-factor.blogspot.com/feeds/posts/default" "http://code-factor.blogspot.com/" }