From 7b0b174115bcb83fbada49f19c01631b298000b9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@oberon.internal.stack-effects.com>
Date: Fri, 7 Mar 2008 21:28:11 -0600
Subject: [PATCH] Use set-file-contents

---
 extra/tools/browser/browser.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/extra/tools/browser/browser.factor b/extra/tools/browser/browser.factor
index 24836c1201..c189a6f9de 100755
--- a/extra/tools/browser/browser.factor
+++ b/extra/tools/browser/browser.factor
@@ -17,8 +17,7 @@ MEMO: (vocab-file-contents) ( path -- lines )
 
 : set-vocab-file-contents ( seq vocab name -- )
     dupd vocab-path+ [
-        ?resource-path
-        utf8 [ [ print ] each ] with-file-writer
+        ?resource-path utf8 set-file-lines
     ] [
         "The " swap vocab-name
         " vocabulary was not loaded from the file system"