steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/system-info/macosx/macosx.factor
View File

@ -15,8 +15,7 @@ TYPEDEF: UInt32 OSType
FUNCTION: OSErr Gestalt ( OSType selector, SInt32* response ) ;
: gestalt ( selector -- response )
0 SInt32 <ref> [ Gestalt ] keep
swap [ throw ] unless-zero le> ;
{ SInt32 } [ Gestalt 0 assert= ] with-out-parameters ;
: system-version ( -- n ) "sysv" be> gestalt ;
: system-version-major ( -- n ) "sys1" be> gestalt ;