system-code-name ( -- str/f )

Vocabulary

system-info.macosx.private

Inputs

None

Outputs

str/f

an object

Definition

USING: arrays assocs kernel ;

IN: system-info.macosx.private

: system-code-name ( -- str/f )
    system-version-major dup 10 =
    [ system-version-minor ] [ 0 ] if 2array
    system-code-names at ;