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

release
Eduardo Cavazos 2007-11-15 17:06:54 -06:00
commit 72dcf7fe61
5 changed files with 6 additions and 7 deletions

View File

@ -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

View File

@ -19,8 +19,7 @@ SYMBOL: responders
<html> <body> <h1> write </h1> </body> </html> ;
: error-head ( error -- )
dup log-error
dup response
dup log-error response
H{ { "Content-Type" "text/html" } } print-header nl ;
: httpd-error ( error -- )

View File

@ -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" } ;

View File

@ -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

View File

@ -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/" }