From d88a89a3a00bcdb3a32691b8dad9e7ed8daeeb80 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Thu, 23 Apr 2009 12:32:18 -0500
Subject: [PATCH] booleans union class
---
basis/booleans/booleans-docs.factor | 7 +++++++
basis/booleans/booleans-tests.factor | 7 +++++++
basis/booleans/booleans.factor | 5 +++++
3 files changed, 19 insertions(+)
create mode 100644 basis/booleans/booleans-docs.factor
create mode 100644 basis/booleans/booleans-tests.factor
create mode 100644 basis/booleans/booleans.factor
diff --git a/basis/booleans/booleans-docs.factor b/basis/booleans/booleans-docs.factor
new file mode 100644
index 0000000000..d3e9dfaed3
--- /dev/null
+++ b/basis/booleans/booleans-docs.factor
@@ -0,0 +1,7 @@
+! (c)2009 Joe Groff, see bsd license
+USING: help.markup help.syntax ;
+IN: booleans
+
+HELP: boolean
+{ $class-description "A union of the " { $link POSTPONE: t } " and " { $link POSTPONE: f } " classes." } ;
+
diff --git a/basis/booleans/booleans-tests.factor b/basis/booleans/booleans-tests.factor
new file mode 100644
index 0000000000..4b3154236d
--- /dev/null
+++ b/basis/booleans/booleans-tests.factor
@@ -0,0 +1,7 @@
+! (c)2009 Joe Groff, see bsd license
+USING: booleans tools.test ;
+IN: booleans.tests
+
+[ t ] [ t boolean? ] unit-test
+[ t ] [ f boolean? ] unit-test
+[ f ] [ 1 boolean? ] unit-test
diff --git a/basis/booleans/booleans.factor b/basis/booleans/booleans.factor
new file mode 100644
index 0000000000..0ec7db33bf
--- /dev/null
+++ b/basis/booleans/booleans.factor
@@ -0,0 +1,5 @@
+! (c)2009 Joe Groff, see bsd license
+USING: kernel ;
+IN: booleans
+
+UNION: boolean POSTPONE: t POSTPONE: f ;