extension ( os -- extension )

Vocabulary

mason.release.archive

Inputs

os

an object

Outputs

extension

an object

Definition

USING: accessors combinators kernel words ;

IN: mason.release.archive

: extension ( os -- extension )
    dup word? [ name>> ] when {
        { "windows" [ ".zip" ] }
        { "macos" [ ".dmg" ] }
        [ drop ".tar.gz" ]
    } case ;