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

Make OS detection words foldable

release
slava 2006-09-02 21:34:55 +00:00
parent 1922c95926
commit b2feff018a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
library/kernel.factor
View File

@ -28,8 +28,8 @@ M: object clone ;
: cpu ( -- cpu ) 7 getenv ; foldable : cpu ( -- cpu ) 7 getenv ; foldable
: os ( -- os ) 11 getenv ; foldable : os ( -- os ) 11 getenv ; foldable
: windows? ( -- ? ) os "windows" = ; inline : windows? ( -- ? ) os "windows" = ; foldable
: macosx? ( -- ? ) os "macosx" = ; inline : macosx? ( -- ? ) os "macosx" = ; foldable
: slip ( quot x -- x ) >r call r> ; inline : slip ( quot x -- x ) >r call r> ; inline
@ -105,8 +105,8 @@ IN: kernel-internals
IN: kernel IN: kernel
: win32? ( -- ? ) windows? cell 4 = and ; inline : win32? ( -- ? ) windows? cell 4 = and ; foldable
: win64? ( -- ? ) windows? cell 8 = and ; inline : win64? ( -- ? ) windows? cell 8 = and ; foldable
IN: memory IN: memory