Builder tweak

db4
Slava Pestov 2008-02-04 23:48:18 -06:00
parent e2f81bfd4b
commit 751a1da3d2
1 changed files with 2 additions and 5 deletions

7
extra/builder/builder.factor Normal file → Executable file
View File

@ -14,7 +14,7 @@ IN: builder
,[ dup timestamp-day ]
,[ dup timestamp-hour ]
,[ timestamp-minute ] }
[ number>string 2 CHAR: 0 pad-left ] map "-" join ;
[ pad-00 ] map "-" join ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -29,10 +29,7 @@ SYMBOL: builder-recipients
: email-string ( subject -- )
`{ "mutt" "-s" , %[ builder-recipients get ] }
<process-stream>
dup
dispose
process-stream-process wait-for-process drop ;
[ ] with-process-stream drop ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!