steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

mason.release.archive was testing strings against symbols for choosing the archival method and file extension. This might break win32/64 or it might speed things up.

Doug Coleman 2011-10-12 01:33:58 -07:00
parent 7b86f4affa
commit c24e213408
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/mason/release/archive/archive.factor
View File

@ -3,7 +3,7 @@
USING: arrays combinators locals io.directories USING: arrays combinators locals io.directories
io.directories.hierarchy io.files io.launcher io.pathnames io.directories.hierarchy io.files io.launcher io.pathnames
kernel make mason.common mason.config mason.platform namespaces kernel make mason.common mason.config mason.platform namespaces
prettyprint sequences ; prettyprint sequences system ;
IN: mason.release.archive IN: mason.release.archive
: base-name ( -- string ) : base-name ( -- string )
@ -11,8 +11,8 @@ IN: mason.release.archive
: extension ( os -- extension ) : extension ( os -- extension )
{ {
{ "windows" [ ".zip" ] } { windows [ ".zip" ] }
{ "macosx" [ ".dmg" ] } { macosx [ ".dmg" ] }
[ drop ".tar.gz" ] [ drop ".tar.gz" ]
} case ; } case ;
@ -35,8 +35,8 @@ IN: mason.release.archive
: make-archive ( archive-name -- ) : make-archive ( archive-name -- )
target-os get { target-os get {
{ "windows" [ make-windows-archive ] } { windows [ make-windows-archive ] }
{ "macosx" [ make-macosx-archive ] } { macosx [ make-macosx-archive ] }
[ drop make-unix-archive ] [ drop make-unix-archive ]
} case ; } case ;