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

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

db4
Doug Coleman 2009-04-25 19:30:56 -05:00
parent 71f2e997a6 66b4d42e13
commit 06b449e5ce
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/blas/config/config.factor
View File

@ -18,7 +18,7 @@ blas-fortran-abi [
{ [ os netbsd? cpu x86.64? and ] [ g95-abi ] } { [ os netbsd? cpu x86.64? and ] [ g95-abi ] }
{ [ os windows? cpu x86.64? and ] [ gfortran-abi ] } { [ os windows? cpu x86.64? and ] [ gfortran-abi ] }
{ [ os freebsd? ] [ gfortran-abi ] } { [ os freebsd? ] [ gfortran-abi ] }
{ [ os linux? cpu x86.32? and ] [ gfortran-abi ] } { [ os linux? ] [ gfortran-abi ] }
[ f2c-abi ] [ f2c-abi ]
} cond } cond
] initialize ] initialize

4
extra/mason/notify/notify.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays accessors io io.sockets io.encodings.utf8 io.files USING: arrays accessors io io.sockets io.encodings.utf8 io.files
io.launcher kernel make mason.config mason.common mason.email io.launcher kernel make mason.config mason.common mason.email
mason.twitter namespaces sequences ; mason.twitter namespaces sequences prettyprint ;
IN: mason.notify IN: mason.notify
: status-notify ( input-file args -- ) : status-notify ( input-file args -- )
@ -38,7 +38,7 @@ IN: mason.notify
f { "test" } status-notify ; f { "test" } status-notify ;
: notify-report ( status -- ) : notify-report ( status -- )
[ "Build finished with status: " write print flush ] [ "Build finished with status: " write . flush ]
[ [
[ "report" utf8 file-contents ] dip email-report [ "report" utf8 file-contents ] dip email-report
"report" { "report" } status-notify "report" { "report" } status-notify

2
extra/mason/report/report.factor
View File

@ -28,7 +28,7 @@ IN: mason.report
common-report common-report
_ call( -- xml ) _ call( -- xml )
[XML <html><body><-><-></body></html> XML] [XML <html><body><-><-></body></html> XML]
pprint-xml write-xml
] with-file-writer ; inline ] with-file-writer ; inline
:: failed-report ( error file what -- status ) :: failed-report ( error file what -- status )