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

Bootstrap fix

slava 2006-07-22 21:17:21 +00:00
parent 8b05f22a50
commit f90f30dbb0
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
library/kernel.factor
View File

@ -22,11 +22,6 @@ M: object clone ;
: ? ( cond t f -- t/f ) rot [ drop ] [ nip ] if ; inline : ? ( cond t f -- t/f ) rot [ drop ] [ nip ] if ; inline
: >boolean t f ? ; inline
: and ( a b -- a&b ) f ? ; inline
: or ( a b -- a|b ) t swap ? ; inline
: xor ( a b -- a^b ) [ not ] when ; inline
: cpu ( -- arch ) 7 getenv ; foldable : cpu ( -- arch ) 7 getenv ; foldable
: os ( -- os ) 11 getenv ; foldable : os ( -- os ) 11 getenv ; foldable
: windows? ( -- ? ) os "windows" = ; inline : windows? ( -- ? ) os "windows" = ; inline
@ -58,6 +53,11 @@ inline
: when* dupd [ drop ] if ; inline : when* dupd [ drop ] if ; inline
: >boolean t f ? ; inline
: and ( a b -- a&b ) f ? ; inline
: or ( a b -- a|b ) t swap ? ; inline
: xor ( a b -- a^b ) [ not ] when ; inline
: with ( obj quot elt -- obj quot ) : with ( obj quot elt -- obj quot )
pick pick >r >r swap call r> r> ; inline pick pick >r >r swap call r> r> ; inline