io.files.info: use directory?, symbolic-link?, and regular-file?.

[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 56b474efe88fda7b5be5ef7b8f8b0b82a369089d..99d82078a7443892d0ab9b8bf39de5d8447cd9f4 100644 (file)
--- a/extra/io/files/trash/unix/unix.factor
+++ b/extra/io/files/trash/unix/unix.factor
@@ -27,7 +27,7 @@ IN: io.files.trash.unix
     {
         [ file-info directory? ]
         [ sticky? ]
-        [ link-info type>> +symbolic-link+ = not ]
+        [ link-info symbolic-link? not ]
     } 1&& [ "invalid trash path" throw ] unless ;
 
 : trash-home ( -- path )