summaryrefslogtreecommitdiff
path: root/MLKInterpreter.m
diff options
context:
space:
mode:
authorMatthias Benkard <mulk@minimulk.mst-plus>2008-08-11 11:48:37 +0200
committerMatthias Benkard <mulk@minimulk.mst-plus>2008-08-11 11:48:37 +0200
commitab43577a31b56bb451d1abc3eb9da2e8afc12509 (patch)
tree8c2061ed9230db454fd13d24986c0a384b4ea3f7 /MLKInterpreter.m
parent065ea00d5c861411b5aaa41f29bd69a9f30e3ef3 (diff)
MLKForm class cluster: Implement declaration and docstring handling.
Diffstat (limited to 'MLKInterpreter.m')
-rw-r--r--MLKInterpreter.m6
1 files changed, 3 insertions, 3 deletions
diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index d3d6161..42d22ed 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -554,7 +554,7 @@
MLKLexicalContext *ctx;
MLKSplitDeclarationsDocAndForms (&declarations, &doc, &body,
- [[program cdr] cdr]);
+ [[program cdr] cdr], NO);
ctx = LAUTORELEASE ([[MLKLexicalContext alloc]
initWithParent:context
variables:nil
@@ -616,7 +616,7 @@
MLKLexicalEnvironment *env;
MLKSplitDeclarationsDocAndForms (&declarations, &doc, &body,
- [[program cdr] cdr]);
+ [[program cdr] cdr], NO);
ctx = LAUTORELEASE ([[MLKLexicalContext alloc]
initWithParent:context
@@ -693,7 +693,7 @@
MLKDynamicContext *dynctx;
MLKSplitDeclarationsDocAndForms (&declarations, &doc, &body,
- [[program cdr] cdr]);
+ [[program cdr] cdr], NO);
ctx = LAUTORELEASE ([[MLKLexicalContext alloc]
initWithParent:context