file-picker.operations: use set-file-contents.

diff --git a/extra/file-picker/operations/operations.factor b/extra/file-picker/operations/operations.factor
index 16a4f25a76ef4dc421bdefd45aea1b3c36126f79..1ca74a7b1cda3a20517b24c34733d6bfd27f6b10 100644 (file)
--- a/extra/file-picker/operations/operations.factor
+++ b/extra/file-picker/operations/operations.factor
@@ -5,7 +5,7 @@ kernel locals ui.commands ui.operations ;
 IN: file-picker.operations
 
 :: save-as ( data -- )
-    "" save-file-dialog [ binary [ data write ] with-file-writer ] when* ;
+    "" save-file-dialog [ data binary set-file-contents ] when* ;
 
 ! Right-click a byte-array presentation to open the Save As window.
 [ byte-array? ] \ save-as H{