os and cpu words now foldable; reduces deploy image size
parent
2b420656d6
commit
e722698b1b
|
@ -11,7 +11,7 @@ SINGLETON: ppc
|
||||||
|
|
||||||
UNION: x86 x86.32 x86.64 ;
|
UNION: x86 x86.32 x86.64 ;
|
||||||
|
|
||||||
: cpu ( -- class ) \ cpu get ;
|
: cpu ( -- class ) \ cpu get-global ; foldable
|
||||||
|
|
||||||
SINGLETON: winnt
|
SINGLETON: winnt
|
||||||
SINGLETON: wince
|
SINGLETON: wince
|
||||||
|
@ -29,7 +29,7 @@ UNION: bsd freebsd netbsd openbsd macosx ;
|
||||||
|
|
||||||
UNION: unix bsd solaris linux ;
|
UNION: unix bsd solaris linux ;
|
||||||
|
|
||||||
: os ( -- class ) \ os get ;
|
: os ( -- class ) \ os get-global ; foldable
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue