prélude to a haiku
parent
2e97263e2b
commit
bb0e2a49ba
|
@ -25,9 +25,11 @@ SINGLETON: solaris
|
|||
SINGLETON: macosx
|
||||
SINGLETON: linux
|
||||
|
||||
SINGLETON: haiku
|
||||
|
||||
UNION: bsd freebsd netbsd openbsd macosx ;
|
||||
|
||||
UNION: unix bsd solaris linux ;
|
||||
UNION: unix bsd solaris linux haiku ;
|
||||
|
||||
: os ( -- class ) \ os get-global ; foldable
|
||||
|
||||
|
@ -51,6 +53,7 @@ UNION: unix bsd solaris linux ;
|
|||
{ "solaris" solaris }
|
||||
{ "macosx" macosx }
|
||||
{ "linux" linux }
|
||||
{ "haiku" haiku }
|
||||
} at ;
|
||||
|
||||
PRIVATE>
|
||||
|
|
Loading…
Reference in New Issue