mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-05 20:50:43 +00:00
281b683e14
standard, implemented in Ruamoko. Currently works for a few simple "Hello, world!" programs.
32 lines
363 B
R
32 lines
363 B
R
#include "SchemeObject.h"
|
|
|
|
@implementation SchemeObject
|
|
|
|
/*
|
|
+ (id) alloc
|
|
{
|
|
return [super alloc];
|
|
}
|
|
*/
|
|
- (void) mark
|
|
{
|
|
marked = true;
|
|
}
|
|
|
|
- (BOOL) sweep
|
|
{
|
|
if (marked) {
|
|
marked = false;
|
|
return false;
|
|
} else {
|
|
[self release];
|
|
return true;
|
|
}
|
|
}
|
|
|
|
- (string) printForm
|
|
{
|
|
return "<generic>";
|
|
}
|
|
|
|
@end
|