quakeforge/ruamoko/scheme/Number.r
Brian Koropoff 281b683e14 Initial commit of a future partial implementation of the R5RS Scheme
standard, implemented in Ruamoko.  Currently works for a few simple
"Hello, world!" programs.
2005-05-01 11:48:36 +00:00

27 lines
320 B
R

#include "Number.h"
#include "string.h"
@implementation Number
+ (id) newFromInt: (integer) i
{
return [[self alloc] initWithInt: i];
}
- (id) initWithInt: (integer) i
{
value = i;
return [super init];
}
- (integer) intValue
{
return value;
}
- (string) printForm
{
return itos (value);
}
@end