io.files: exists? -> file-exists? and rename primitive.

[factor.git] / extra / io / files / trash / unix / unix.factor

diff --git a/extra/io/files/trash/unix/unix.factor b/extra/io/files/trash/unix/unix.factor
index 730de60c0f15c65bc13a8577ba4ee352dbaad100..ce1f7a920af3fdd9e6e3d7493cc6099f70a6a36d 100644 (file)
--- a/extra/io/files/trash/unix/unix.factor
+++ b/extra/io/files/trash/unix/unix.factor
@@ -44,7 +44,7 @@ IN: io.files.trash.unix
     top-directory dup trash-home top-directory = [
         drop trash-home
     ] [
-        dup ".Trash" append-path exists?
+        dup ".Trash" append-path file-exists?
         [ trash-1 ] [ trash-2 ] if
         [ make-user-directory ] keep
     ] if ;
@@ -57,7 +57,7 @@ IN: io.files.trash.unix
     ] dip swap "%s%s %s%s" sprintf ;
 
 : safe-file-name ( path -- path' )
-    dup 0 [ over exists? ] [
+    dup 0 [ over file-exists? ] [
         [ parent-directory to-directory ] [ 1 + ] bi*
         [ (safe-file-name) ] keep
     ] while drop nip ;