prélude to a haiku

db4
Joe Groff 2009-02-28 15:01:28 -06:00
parent 2e97263e2b
commit bb0e2a49ba
1 changed files with 4 additions and 1 deletions

View File

@ -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>