booleans union class

db4
Joe Groff 2009-04-23 12:32:18 -05:00
parent d039c803eb
commit d88a89a3a0
3 changed files with 19 additions and 0 deletions

View File

@ -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." } ;

View File

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

View File

@ -0,0 +1,5 @@
! (c)2009 Joe Groff, see bsd license
USING: kernel ;
IN: booleans
UNION: boolean POSTPONE: t POSTPONE: f ;