string>os ( str -- class )

Vocabulary

system.private

Inputs

str

an object

Outputs

class

an object

Definition

USING: assocs system ;

IN: system.private

: string>os ( str -- class )
    H{
        { "macos" macos }
        { "freebsd" freebsd }
        { "linux" linux }
        { "windows" windows }
    } at ;