diff --git a/extra/builder/util/util.factor b/extra/builder/util/util.factor index b3b88874b0..70f3083f57 100644 --- a/extra/builder/util/util.factor +++ b/extra/builder/util/util.factor @@ -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 ) contents eval ; +: eval-file ( file -- obj ) file-contents eval ; -: cat ( file -- ) contents print ; +: cat ( file -- ) file-contents print ; : run-or-bail ( desc quot -- ) [ [ try-process ] curry ]