system-info.macosx: simplify gestalt.
parent
7aee629845
commit
3d5dda504f
basis/system-info/macosx
|
@ -15,8 +15,7 @@ TYPEDEF: UInt32 OSType
|
||||||
FUNCTION: OSErr Gestalt ( OSType selector, SInt32* response ) ;
|
FUNCTION: OSErr Gestalt ( OSType selector, SInt32* response ) ;
|
||||||
|
|
||||||
: gestalt ( selector -- response )
|
: gestalt ( selector -- response )
|
||||||
0 SInt32 <ref> [ Gestalt ] keep
|
{ SInt32 } [ Gestalt 0 assert= ] with-out-parameters ;
|
||||||
swap [ throw ] unless-zero le> ;
|
|
||||||
|
|
||||||
: system-version ( -- n ) "sysv" be> gestalt ;
|
: system-version ( -- n ) "sysv" be> gestalt ;
|
||||||
: system-version-major ( -- n ) "sys1" be> gestalt ;
|
: system-version-major ( -- n ) "sys1" be> gestalt ;
|
||||||
|
|
Loading…
Reference in New Issue