system-info.macosx: simplify gestalt.

db4
John Benediktsson 2014-06-02 15:11:09 -07:00
parent 7aee629845
commit 3d5dda504f
1 changed files with 1 additions and 2 deletions
basis/system-info/macosx

View File

@ -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 ;