diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-27 11:11:45 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-27 11:11:45 +0200 |
commit | 47d502e02b4dc42d8192102c4e52764da09a90e5 (patch) | |
tree | a9fa912c063582f2c52455563a35151b236962d0 /MLKRoot.m | |
parent | f91b134dcabcf82f8c35c67b5d43390b8e8d1ae2 (diff) |
Make MACROEXPAND-ALL an entry point to the minimal compiler.
Diffstat (limited to 'MLKRoot.m')
-rw-r--r-- | MLKRoot.m | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -242,6 +242,18 @@ static id truify (BOOL value) RETURN_VALUE (form); } ++(NSArray *) macroexpand_all:(NSArray *)args +{ + id form = [args objectAtIndex:0]; + id env = [args count] > 1 ? denullify([args objectAtIndex:1]) : nil; + MLKLexicalContext *context = env ? (id)env : (id)[MLKLexicalContext globalContext]; + + return [MLKInterpreter eval:form + inLexicalContext:context + withEnvironment:nil + expandOnly:YES]; +} + +(NSArray *) shadow:(NSArray *)args { id symbols = denullify ([args objectAtIndex:0]); |