 USING: arrays combinators locals io.directories
 io.directories.hierarchy io.files io.launcher io.pathnames
 kernel make mason.common mason.config mason.platform namespaces
-prettyprint sequences ;
+prettyprint sequences system ;
 IN: mason.release.archive
 
 : base-name ( -- string )


: extension ( os -- extension )
    {
        { "windows" [ ".zip" ] }
        { "macosx" [ ".dmg" ] }
        [ drop ".tar.gz" ]
    } case ;



: make-archive ( archive-name -- )
    target-os get {
        { windows [ make-windows-archive ] }
        { macosx [ make-macosx-archive ] }
        [ drop make-unix-archive ]
    } case ;

