quakeforge/ruamoko/scheme/Boolean.r
Bill Currie 75ec6bf244 Clean out some unnecessary types from the progs engine and clean up the mess.
This is a nasty commit, sorry, but 99% of the commit is interdependent.
2011-01-10 12:25:31 +09:00

32 lines
431 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