fix bug (report not send on error)
	factor-binary is now "./factor"
db4
Eduardo Cavazos 2008-02-25 16:27:31 -06:00
parent 144ca2985a
commit 5045330209
1 changed files with 8 additions and 9 deletions

View File

@ -65,15 +65,14 @@ IN: builder
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: factor-binary ( -- name ) ! : factor-binary ( -- name )
os ! os "macosx" =
{ { "macosx" [ "./Factor.app/Contents/MacOS/factor" ] } ! [ "./Factor.app/Contents/MacOS/factor" ]
{ "winnt" [ "./factor-nt.exe" ] } ! [ "./factor" ]
[ drop "./factor" ] } ! if ;
case ;
: bootstrap-cmd ( -- cmd ) : bootstrap-cmd ( -- cmd )
{ factor-binary { "-i=" my-boot-image-name } "-no-user-init" } to-strings ; { "./factor" { "-i=" my-boot-image-name } "-no-user-init" } to-strings ;
: bootstrap ( -- desc ) : bootstrap ( -- desc )
<process*> <process*>
@ -85,7 +84,7 @@ IN: builder
>desc ; >desc ;
: builder-test-cmd ( -- cmd ) : builder-test-cmd ( -- cmd )
{ factor-binary "-run=builder.test" } to-strings ; { "./factor" "-run=builder.test" } to-strings ;
: builder-test ( -- desc ) : builder-test ( -- desc )
<process*> <process*>
@ -178,7 +177,7 @@ SYMBOL: builder-recipients
: build ( -- ) : build ( -- )
[ (build) ] [ drop ] recover [ (build) ] [ drop ] recover
maybe-release build-status get [ maybe-release ] when
[ send-builder-email ] [ drop "not sending mail" . ] recover [ send-builder-email ] [ drop "not sending mail" . ] recover
".." cd { "rm" "-rf" "factor" } run-process drop ".." cd { "rm" "-rf" "factor" } run-process drop
[ compress-image ] [ drop ] recover ; [ compress-image ] [ drop ] recover ;