Add an intern primitive for symbol creation

minproto.leg

@@ -3804,6 +3804,22 @@ oop prim___eval__(oop func, oop self, oop args, oop env)
     return self;
 }
 
+oop prim_intern(oop func, oop self, oop args, oop env)
+{
+    int argc     = _get(args, Object,isize);
+    oop *indexed = _get(args, Object,indexed);
+    oop result   = nil;
+
+    if (argc != 1) {
+        fatal("intern: invalid number of arguments");
+    }
+    if (getType(indexed[0]) != String) {
+        fatal("intern: argument is not of type String, got %s instead", getTypeName(indexed[0]));
+    }
+
+    return intern(_get(indexed[0], String, value));
+}
+
 oop prim_print(oop func, oop self, oop args, oop env)
 {
     int argc     = _get(args, Object,isize);
@@ -4165,6 +4181,7 @@ int main(int argc, char **argv)
     prim(exit       , prim_exit);
     prim(error      , prim_error);
     prim(defined    , prim_defined);
+    prim(intern     , prim_intern);
 
 # undef prim