quakeforge/ruamoko/scheme/Boolean.r
2005-05-08 10:37:57 +00:00

32 lines
427 B
R

#include "Boolean.h"
Boolean trueConstant;
Boolean falseConstant;
@implementation Boolean
+ (void) initialize
{
trueConstant = [Boolean new];
[trueConstant retain];
falseConstant = [Boolean new];
[falseConstant retain];
}
+ (id) trueConstant
{
return trueConstant;
}
+ (id) falseConstant
{
return falseConstant;
}
- (string) printForm
{
return self == trueConstant ? "#t" : "#f";
}
@end