builder.util: add to-file

2008-02-21 19:38:51 -06:00 · 2008-02-21 19:38:51 -06:00 · 95185cf9e1
parent 7303efe221
commit 95185cf9e1
1 changed files with 7 additions and 1 deletions
--- a/extra/builder/util/util.factor
+++ b/extra/builder/util/util.factor
@ -98,4 +98,10 @@ USING: bootstrap.image bootstrap.image.download io.streams.null ;
 : cat-n ( file n -- )
  [ file-lines ] [ ] bi*
  maybe-tail*
-  [ print ] each ;
+  [ print ] each ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+USE: prettyprint
+
+: to-file ( object file -- ) [ . ] with-file-writer ;