steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

release
Eduardo Cavazos 2007-11-15 17:06:54 -06:00
parent 44a5e155ab e163e15828
commit 72dcf7fe61
5 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/system/system-tests.factor
View File

@ -1,6 +1,6 @@
USING: math tools.test system ; USING: math tools.test system prettyprint ;
IN: temporary IN: temporary
[ t ] [ cell integer? ] unit-test [ t ] [ cell integer? ] unit-test
[ t ] [ bootstrap-cell integer? ] unit-test [ t ] [ bootstrap-cell integer? ] unit-test
[ ] [ os-env . ] unit-test [ ] [ os-envs . ] unit-test

3
extra/http/server/responders/responders.factor
View File

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

3
extra/io/sniffer/bsd/bsd.factor
View File

@ -7,8 +7,7 @@ sequences ;
QUALIFIED: unix QUALIFIED: unix
IN: io.sniffer.bsd IN: io.sniffer.bsd
M: unix-io (handle-destructor) ( obj -- ) M: unix-io destruct-handle ( obj -- ) close drop ;
destructor-obj close drop ;
C-UNION: ifreq_props "sockaddr-in" "short" "int" "caddr_t" ; C-UNION: ifreq_props "sockaddr-in" "short" "int" "caddr_t" ;
C-STRUCT: ifreq { { "char" 16 } "name" } { "ifreq_props" "props" } ; C-STRUCT: ifreq { { "char" 16 } "name" } { "ifreq_props" "props" } ;

2
extra/parser-combinators/simple/simple.factor
View File

@ -11,7 +11,7 @@ LAZY: 'any-char' ( -- parser )
[ digit? ] satisfy [ digit> ] <@ ; [ digit? ] satisfy [ digit> ] <@ ;
: 'integer' ( -- parser ) : 'integer' ( -- parser )
'digit' <!+> [ 0 [ swap 10 * + ] reduce ] <@ ; 'digit' <!+> [ 10 swap digits>integer ] <@ ;
: 'string' ( -- parser ) : 'string' ( -- parser )
[ CHAR: " = ] satisfy [ CHAR: " = ] satisfy

1
extra/webapps/planet/planet.factor
View File

@ -100,6 +100,7 @@ SYMBOL: cached-postings
\ planet-factor { } define-action \ 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/" } { "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/" } { "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/" } { "Doug Coleman" "http://code-factor.blogspot.com/feeds/posts/default" "http://code-factor.blogspot.com/" }