summaryrefslogtreecommitdiff
path: root/MLKForm.m
diff options
context:
space:
mode:
Diffstat (limited to 'MLKForm.m')
-rw-r--r--MLKForm.m26
1 files changed, 0 insertions, 26 deletions
diff --git a/MLKForm.m b/MLKForm.m
index 19e04ac..b255cc9 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -130,7 +130,6 @@
if (car == APPLY) return [MLKFunctionCallForm class];
else if (car == CATCH) return [MLKCatchForm class];
- else if (car == _DEFMACRO) return [MLKSimpleDefmacroForm class];
else if (car == EVAL) return [MLKFunctionCallForm class];
else if (car == EVAL_WHEN) return [MLKEvalWhenForm class];
else if (car == _FOREIGN_LAMBDA) return [MLKForeignLambdaForm class];
@@ -332,31 +331,6 @@
@end
-@implementation MLKSimpleDefmacroForm
--(id) complete
-{
- MLKLexicalContext *newContext;
-
- self = [super complete];
-
- LASSIGN (_name, [_tail car]);
- LASSIGN (_lambdaListName, [[_tail cdr] car]);
- newContext = [MLKLexicalContext contextWithParent:_context
- variables:[NSSet setWithObject:_lambdaListName]
- functions:nil
- goTags:nil
- macros:nil
- compilerMacros:nil
- symbolMacros:nil
- declarations:[self declarationsWithForms:[[_tail cdr] cdr]]];
-
- [self processBody:[[_tail cdr] cdr]
- inContext:newContext];
- return self;
-}
-@end
-
-
@implementation MLKEvalWhenForm
-(id) complete
{