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

builder.util: simpler cat and eval-file

db4
Eduardo Cavazos 2008-02-15 02:21:01 -06:00
parent def53a07d8
commit 3409aa670d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/builder/util/util.factor
View File

@ -69,9 +69,9 @@ TUPLE: process* arguments stdin stdout stderr timeout ;
: milli-seconds>time ( n -- string )
1000 /i 60 /mod >r 60 /mod r> 3array [ pad-00 ] map ":" join ;
: eval-file ( file -- obj ) <file-reader> contents eval ;
: eval-file ( file -- obj ) file-contents eval ;
: cat ( file -- ) <file-reader> contents print ;
: cat ( file -- ) file-contents print ;
: run-or-bail ( desc quot -- )
[ [ try-process ] curry ]