 
 : extension ( os -- extension )
     {
-        { "windows" [ ".zip" ] }
-        { "macosx" [ ".dmg" ] }
+        { 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 ;


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 system ;
IN: mason.release.archive

: base-name ( -- string )
