diff options
Diffstat (limited to 'MLKRoot.m')
-rw-r--r-- | MLKRoot.m | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -406,7 +406,7 @@ static id truify (BOOL value) intern:@"*PACKAGE*"]])); MLKSymbol *symbol = [package intern:name]; - return [NSArray arrayWithObjects:symbol, nil]; + RETURN_VALUE (symbol); } +(NSArray *) import:(NSArray *)args @@ -446,4 +446,10 @@ static id truify (BOOL value) NSLog (@"%@", description); RETURN_VALUE ([args objectAtIndex:0]); } + ++(NSArray *) symbol_name:(NSArray *)args +{ + MLKSymbol *symbol = denullify ([args objectAtIndex:0]); + RETURN_VALUE (symbol ? (id)[symbol name] : (id)@"NIL"); +} @end |