Add SYMBOL-NAME.

1 files changed, 7 insertions, 1 deletions

diff --git a/MLKRoot.m b/MLKRoot.m
index a921c19..07cfe5f 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -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