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