quakeforge/ruamoko/scheme/Procedure.r

#include "Procedure.h"
#include "Machine.h"

@implementation Procedure
- (void) invokeOnMachine: (Machine) m
{
    [m procedure: self];
    return;
}

- (string) printForm
{
    return "<procedure>";
}

@end
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			`#include "Procedure.h"`
Fix a slew of warnings found by -Wall. -Wall still isn't used yet due to a missing method in Array, and overzealous warnings in qfcc, but this covers the necessary fixes. 2010-12-16 11:01:49 +00:00			`#include "Machine.h"`
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
			`@implementation Procedure`
			`- (void) invokeOnMachine: (Machine) m`
			`{`
Scheme updates: - Boolean type (no support in lexer yet) - Conditionals - Defines (only work correctly at top level) - More core builtins (apply, cons, car, cdr) - Variable-argument functions - Incremental garbage collection - Garbage collection fixes - Other misc bugs fixed 2005-05-06 23:25:06 +00:00			`[m procedure: self];`
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			`return;`
			`}`

			`- (string) printForm`
			`{`
			`return "<procedure>";`
			`}`

			`@end`