Using "same?" in more places.

[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 f451891311eae6d6eb294974fe0116753ea18fad..0d52ec6b27f8b3a9614089d256c99f4c01cde227 100644 (file)
--- a/extra/io/files/trash/unix/unix.factor
+++ b/extra/io/files/trash/unix/unix.factor
@@ -15,7 +15,7 @@ IN: io.files.trash.unix
 
 : top-directory? ( path -- ? )
     dup ".." append-path [ link-status ] bi@
-    [ [ st_dev>> ] bi@ = not ] [ [ st_ino>> ] bi@ = ] 2bi or ;
+    [ [ st_dev>> ] same? not ] [ [ st_ino>> ] same? ] 2bi or ;
 
 : top-directory ( path -- path' )
     [ dup top-directory? not ] [ ".." append-path ] while ;