 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: 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*>

  >desc ;

: builder-test-cmd ( -- cmd )
  { factor-binary "-run=builder.test" } to-strings ;

: builder-test ( -- desc )
  <process*>


: build ( -- )
  [ (build) ] [ drop ] recover
  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 ;
