: cpu ( -- class ) \ cpu get-global ; foldable
-SINGLETONS: winnt wince ;
-
-UNION: windows winnt wince ;
+SINGLETON: windows
SINGLETONS: freebsd netbsd openbsd solaris macosx linux ;
: string>os ( str -- class )
H{
- { "winnt" winnt }
- { "wince" wince }
+ { "windows" windows }
{ "freebsd" freebsd }
{ "netbsd" netbsd }
{ "openbsd" openbsd }