1 ! Copyright (C) 2010 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: combinators system vocabs ;
8 HOOK: send-to-trash os ( path -- )
11 { [ os windows? ] [ "io.files.trash.windows" ] }
12 { [ os macosx? ] [ "io.files.trash.macosx" ] }
13 { [ os unix? ] [ "io.files.trash.unix" ] }