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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,7 +14,7 @@ IN: builder
,[ dup timestamp-day ] ,[ dup timestamp-day ]
,[ dup timestamp-hour ] ,[ dup timestamp-hour ]
,[ timestamp-minute ] } ,[ 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 -- ) : email-string ( subject -- )
`{ "mutt" "-s" , %[ builder-recipients get ] } `{ "mutt" "-s" , %[ builder-recipients get ] }
<process-stream> [ ] with-process-stream drop ;
dup
dispose
process-stream-process wait-for-process drop ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!